CP/J 
BASIC 
Opis języka 


oprogramowanie 
ELWRO 800 Junior 


CP/J 
BASIC 
Opis języka 


7110.5011—01 35—0 


Wrocław, maj 1987 rok 


ZAKŁADY ELEKTRONICZNE „ELWRO” 
7110.6011-01 36—0 

Wydanie I 

Wrocław, maj 1087 rok 


CP/J. BASIC - Opis języka 


7110.5011-01 35-0 /87.05/ 


Podręcznik zawiera opis języka programowania BASIC i 
interpretera języka programowania BASIC. Przeznaczony jest dla 
użytkowników i programistów pracujących na mikrokomputerach 
ELWRO 800 JUNIOR wyposażonych w system operacyjny CP/J. 
Korzystanie z tego podręcznika należy poprzedzić zapoznaniem 


się z następującą dokumentacją: 


CP/J — System operacyjny CP/J dla mikrokomputera ELWRO 800 
JUNIOR 
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1. OGOLNE INFORMACJE O JĘZYKU BASIC 


Język BASIC (Beginer's All Purpose Symbolic Instruction Code) 
jest uniwersalnym językiem programowania wyzszego rzędu, 
przeznaczonym do rozwiązywania problemow naukowo-technicznych 
i ekonomicznych. Zaletą jezyka BASIC jest z jednej strony 
prostota umozliwiająca szybkie opanowanie podstaw 
programowania, a z drugiej bogaty zestaw instrukcji 
pozwalających na efektywne zaprogramowanie wielu, nawet 
skomplikowanych zagadnień. 


Język BASIC umozliwia: 

- działania na wartosciach numerycznych i alfanumerycznych, 

— grupowanie wartosci w tablice numeryczne i alfanumeryczne, 

- efektywne zapisanie czynności algorytmu w postaci 
instrukcji, 

- proste wprowadzenie danych i wyprowadzenie wynikow, 

- podział programu na podprogranmy, 

- dostęp do podstawowych funkcji arytnetycznych i tekstowych, 

- definiowanie przez programującego, 

- przetwarzanie plikow znakowych 1 binarnych, 

- definiowanie wzorcow wydruku wynikow, 


- programową obsługę błędow wykonania. 


Struktura języka oraz jego implementacja pozwalają na konwer— 
sacyjne wprowadzenie tekstu programu do pamięci operacyjnej 
oraz na uruchomienie i poprawienie błędow sygnalizowanych 
przez interpreter. Pierwotna wersja języka BASIC została 
opracowana podkierownictwem profesorow J.G. Kemeny'ego 1 T.FP. 
Kurtza w Dartmouth College. Prezentowana wersja interpretera 
języka BASIC jest implementacją języka BASIC-80 na 
mikrokomputer ELWRO 800 JUNIOR. 
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1.1. Inicjacja 


Interpreter języka BASIC jest zapisany na dysku elastycznym 
w pliku o nazwie BASIC. COM. 

Program BASIC zostanie wprowadzony z dysku elastycznego do 
pamięci po napisaniu na monitorze jednego ze zleceń 


nierezydentnych 


BASIC 


BASIC /F: liczba plikow (nn) 


BASIC /M: najwyzszy adres pamięci (aaaa) 


BASIC /8$: maksymalna długośc rekordu (dddd) 


BASIC /BR: nn /M: aaaa /S: dddd 


Parametry /P:, /M: 1 /S: są paranetrami opcjonalnymi i mozliwa 
jest ich dowolna kombinacja. 

Nozna okreslić jeden, dwa lub wszyskie parametry albo je 
pominąć. 

Wartosci określające liczbę plikow, najwyzszy adres pamięci 

i długosć rekordu mogą być okreslone przez liczby dziesiętne, 
oktalne poprzedzone znakiem 80 lub heksadecymalne poprzedzone 


znakiem SH. 


Parametr /PF:nn - definiuje liczbę plikow dyskowych, ktore 
moga być jednoczesnie otwarte w czasie 
pracy programu użytkowego. Wartość nn moze 
być z przedziału 1 do 15. 

Podana liczba jest jednoczesnie maksymalnym 
numerem programowym pliku, ktory może być 
uzyty podczas otwarcia pliku (w instrukcji 
OPEN). 

Dla kazdego pliku rezerwowany jest obszar 
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Parametr /S:dddd — 


Parametr /M:aaaa — 


Przykłady: 


1/ BASIC 


2/ BASIC /F:5 


3/ BASIC /M: 8H9000 


4/ BASIC /5:90 
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pamięci zwany blokiem pliku danych lub 
buforem dyskowym o wielkości 166 bajtow 
plus długość rekordu (128 bajtow lub za- 
deklarowana parametrem /S:dddd). 


definiuje maksymalną długość rekordu dla 
plikow o dostępie bezpośrednim. Moze to 
być liczba dddd z przedziału 1 do 4096. 


definiuje najwyzszy dostępny dla interpre- 
tera języka BASIC adres pamięci operacyj- 


nej. Jeżeli parametr jest pominięty uzywana 


jest cała dostępna pamięć. Użycie tego 
parametru pozwala zarezerwować pamięć 
operacyjną dla podprogramow w języku 
asembler wywoływanych przez program 
użytkowy. /patrz DODATEK E/ 


Interpreter uzywa całą dostępną pamięć 


operacyjną, trzy pliki dyskowe, długość 


rekordu wynosi max 128 bajtow. 
Interpreter uzywa całą dostępną pamięć, 


mozna jednocześnie otworzyć max 5 plikow 


dyskowych (z numerami od 1 do 5). 
Maksymalna długość rekordu wynosi 126 
bajtow. 


Interpreter używa pamięć operacyjną aż do 


adresu %H9000. 
Interpreter uzywa cała dostępną pamięć, 


trzy pliki dyskowe, maksymalna długość 


rekordu wynosi 90 bajtow. 


11 


Naciśnięcie klawisza CR po napisaniu jednego ze zleceń 
nierezydentnych powoduje wprowadzenie do pamięci operacyjnej 
interpretera języka BASIC i wyświetlenie na monitorze 
informacji identyfikującej interpreter 


Interpreter języka BASIC 
wersja 5.2 dla ELWRO 800 JUNIOR 
nnnnn bajty obszaru użytkownika 


oraz informacji o dostępnej wielkości pamięci operacyjnej dla 
programów użytkowych i danych. 


Komunikat OK sygnalizuje poprawne zakończenie wprowadzania 
interpretera do pamięci operacyjnej i gotowość przyjęcia i 
realizowania instrukcji języka BASIC. 

żapamiętanie programu użytkowego na dysku elastycznym wprowa— 
dzonego z klawiatury (lub z dysku> do pamięci operacyjnej 
odbywa się przy użyciu instrukcji: 


SAVB *X:nazwa pliku" 


gdzie X oznacza nr kieszeni urządzenia dyskowego i przybiera 
wartość A: lub B:. 

Nazwa pliku może być pisana dużymi literami lub małymi. Jeżeli 
będzie pisana małymi literami, to na taki plik nie będzie 
można działać zleceniami rezydentnymi systemu operacyjnego 
CP/J (usuwanie pliku z dysku, zmiana nazwy). Plik będzie 
dostępny tylko pod interpreterem języka BASIC. Jeżeli nazwa 
pliku jest krótsza niż 8 znaków (lub równa)> automatycznie 
zostanie rozszerzona o typ pliku BAS. 

Jeżeli jest większa niż 8 znaków to trzy znaki będą tworzyły 
rozszerzenie (typ) pliku. 


Jeżeli nazwa pliku zawiera więcej niż 11 znaków, pozostałe 
znaki zostaną zignorowane. 


12 7110.5011—01 36-0 (87.05) 


Nazwa pliku może zawierać również "." 1i typ pliku zgodnie ze 
standardem systemu CP/J. 

Wprowadzenie programu z dysku elastycznego do pamięci 
operacyjnej odbywa się przy użyciu instrukcji 


LOAD "X:nazwa pliku" 


Przy czym w nazwie pliku nie jest wymagane podanie 
rozszerzenia pliku BAS. 
Uruchomienie progranu użytkowego odbywa się instrukcją RUN. 


1.2. Tryby pracy 


Po inicjacji interpretera języka programowania BASIC ukazuje 
się napis OK. Oznacza on, że BASIC znajduje się na poziomie 
instrukcji sterujących, i jest gotowy do przyjęcia i wykonania 
instrukcji. Możliwe są dwa tryby pracy: tryb natychmiastowy 
(prosty 1 tryb programowy. 

W trybie natychmiastowym instrukcje nie są poprzedzone numerem 
linii. Są one wykonywane natychmiast po wprowadzeniu. 
Rezultaty operacji arytmetycznych i logicznych są wyświetlone 
natychmiast po ich wykonaniu i mogą być przechowywanew celu 
późniejszego wykorzystania, lecz same instrukcje języka są 
wymazywane z pamięci po wykonaniu. Ten tryb pracy jest 
przydatny w czasie usuwania błędów w programie, umożliwia 
teżwykorzystanie mikrokomputera jako "kalkulatora". Iryb 
programowy służy do wprowadzenia i uruchamiania programów. 
Linie programu są poprzedzone numerem i przechowywane są w 
pamięci operacyjnej. Uruchomienie programu przechowywanego w 
pamięci odbywa się za pomocą instrukcji sterującej RUN. Program 
pisany w trybie programowym można zapisać do pliku dyskowego 
instrukcją *SAVE*. 
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1.3. Pliki dyskowe 


Nazwy plików dyskowych muszą być zgodne z konwencją przyjętą w 
systemie operacyjnym CP/J. Wszystkie nazwy plików mogą 
zawierać oznaczenie urządzeń A:, B: jako dwa pierwsze znaki 
nazwy specyfikujące jednostkę dyskową. W przeciwnym razie 
wybierana jest aktualnie wyselekcjonowana jednostka. Domyślne 
rozszerzenie. BAS dołączone jest do nazw plików w instrukcjach 
LOAD, SAVE, MERGE i RUN, gdy w nazwach tych nie występuje *.* 


lub są one krótsze niż 9 znaków. 


1.4. Format linii programu 


Linia programu w języku BASIC ma następujący format 


(nawiasy kwadratowe wyróżniają elementy opcjonalne?: 
nnnnn instrukcja £: instrukcja...) 


Ww jednej linii mcże być umieszczona większa ilość instrukcji 
lecz muszą być one rozdzielone dwukropkiem. 

Linia programu zaczyna się zawsze numerem linii, kończy się 
znakiem CR (return> i może zawierać maksymalnie 255 znaków. 
Możliwe jest rozszerzenie logiczne linii ponad 255 znaków 
poprzez użycie klawiszy CTRL-J. < CTRL-J > umożliwia 
kontynuację linii ponad 255 znaków bez wprowadzania znaku 
CR. <CTRL-J> może być użyte, jeżeli długość linii progranu 
jest <=254 znaki. 


NUMERY LINII PROGRAMU 


Numery linii wyznaczają kolejność w jakiej linie te prze- 
chowywane są w pamięci 1 umożliwiają one łatwą realizację sko- 
ków i edycji. Numery linii muszą mieścić się w zakresie 

0 - 65529. Kropka może być użyta w instrukcjach EDIT, LIST, 
AUTO i DELETE jako odniesienie do bieżącej linii. 
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1.5. Zbior znakow 


Zbior znakow języka BASIC składa się ze znakow numerycznych, 
alfanumerycznych i znakow specjalnych. Znakami numerycznymi są 
cyfry od 0 do 9. Znakami alfanumerycznymi są duze i nałe 
litery alfabetu. 


Znaki specjalne: 


Znak Nazwa 


- Spacja 
= — Znak rowności lub podstawienia 
+ - Znak plusa 
— — Znak minusa 
* - Gwiazdka, symbol mnozenia 
— Kreska ukosna, symbol dzielenia 
- Znak potęgowania 
- Nawias lewostronny 
— Nawias prawostronny 
Procent | 
— Znak liczby lub funta 
- Znak dolara 
! — Wykrzyknik 
( - Lewostronny nawias kwadratowy 


© * R * a 
I 


— Prawostronny nawias kwadratowy 
, — Przecinek 
-— Kropka dziesiętna 
' — Apostrof 
; - SŚrednik 
— Dwukropek 
w - Ampersand 
? - Znak zapytania 
-— Mniejsze niz 
Większe niz 


ZY AĄ 
I 


-— Odwrotna kreska ukośna lub znak dzielenia 
całkowitego 
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CR 


- At-sign 
- Podkreslenie 
— Kończy wprowadzanie linii 


ZNAKI KONTROLNE 


CTRL-A — Wywołuje edytor dla bieżącej linii. 

CTRL-C — Przerywa wykonanie programu i powoduje 
powrot do poziomu instrukcji sterujących 

CTRL-H —- Cofnięcie kursora o jedną pozycję. Usuwa 
ostatnio napisany znak. 

CTRL-I — Przesuwa pozycję kursora co 8 kolumn. 

CTRL-J — Przesunięcie do następnej linii na monitorze. 

CTRL-O —- Zatrzymuje wyprowadzanie danych z programu, 
podczas gdy wykonanie programu jest kontynuowane. 
Powtorzenie CTRL-O uruchamia ponowne wyprowadzanie 
danych z programu. 

CTRL-R - Przepisuje aktualnie wprowadzaną linię progranu. 

CTRL-S — Zawiesza wykonanie programu. 

CTRL-Q - Kontynuacja wykonania programu po CITRL-S. 

CTRL-X — Usuwa aktualnie wprowadzaną linię. 

CTRL-U — To samo co CTRL-X 

1.6. Stałe 


Kozliwe są dwa rodzaje stałych: stałe numeryczne i stałe 


alfanumeryczne. 


Stałe alfanumeryczne cą ciągiem nie więcej niz 255 znakow 


alfanumerycznych ujętych w cudzysłow, np.: 


16 


*SAŁA" 
*125.000.000zł* 
"NUMER TABULOGRAKU" 
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Stałe numeryczne są dodatnimi lub ujemnymi liczbami. Nie mogą 
one zawierać przecinkow. Jest pięć typow stałych numerycznych: 


10 Całkowite - wszystkie liczby pomiędzy — 32768 1 
+ 32767. Nie mogą one zawierać kropki 
dziesiętnej. 

2> Stałopozycyjne - dodatnie lub ujemne liczby rzeczywiste, 


tzn. zawierające kropkę dziesiętną. 

3 Zmiennopozycyjne — dodatnie lub ujemne liczby reprezento- 
wane w postaci eksponencjalnej. 
Składają się one z mantysy (liczba cał 
kowita lub stałopozycyjne), po ktorej 
występuje litera E i wykładnik potęgi 
(liczba całkowita ze znakiem lub bez). 
Wykładnik musi być z zakresu — 38 do 
+ 38 
Np.: 
235.988E-7 =.0000235988 
2359E+6 = 2359000000 


4 Hexadecymalne - są to liczby hexadecynsalne oznaczone 
przedrostkiem 88H, np.: %8H76, 8H32F 
5> Oktalne - są to liczby oktalne z przedrostkiem 


80 lub 8, np.: 80347, 81234. 


POZYCJE POJEDYNCZEJ I PODWOJNEJ PRECYZJI STAŁYCH NUMERYCZNYCH 


Stałe numeryczne mogą byc liczbami pojedynczej i podwojnej 
precyzji. Liczby podwojnej precyzji przechowywane są w postaci 
16 cyfr. Stałą o pojedynczej precyzji jest kazda stała numery 


czna, ktora posiada: 
1 - siedem lub miej cyfr, lub 


2 — format eksponencjalny z litera D, lub 
3 - konczący ją znak ((%). 
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Przykłady: 


Stałe pojedynczej precyzji: Stałe podwojnej precyzji: 
46.8 345692811 
-—7.09 E —06 —1.09432D - 06 
3489.0 3489.0% 
22.5! 7654321. D234 


1.7. Zmienne 


Zmienne są nazwami uzytymi do reprezentowania wartosci uzżywa— 
nych w programie. Wartość zmiennej moze być podana explicite 
przez programistę lub okreslona jako wynik obliczeń programu. 


Przed nadaniem wartosci zmiennej posiada ona wartość 0. 


1.7.1. Nazwy zmiennych i znaki deklaracji typu 


W języku BASIC nazwy zmiennych mogą być dowolnej długości, ale 
tylko pierwszych 40 znakow jest zpaczących. Nazwa zmiennej 
może się składać z liter, cyfr 1 kropki dziesiętnej. Pierwszym 
znakiem nazwy jest litera. 

Nazwa zmiennej nie może być zastrzezoną. Nazwami zastrzezonymi 
są wszystkie instrukcje funkcji oraz operatorow w języku 
BASIC. 

Jezeli nazwa zmiennej zaczyna się od FN, jest to rozumiane 
jako wywołanie funkcji zdefiniowanej przez uzytkownika. 
Zmienne moga reprezentować wartości numeryczne lub 
alfanumeryczne. Zmienne numeryczne mogą być zadeklarowane jako 
liczby całkowite, pojedynczej lub podwojnej precyzji. 

Znaki deklaracji typu tych zmiennych są następujące: 


% zmienna całkowita (4 cyfry) 


! zmienna pojedynczej precyzji (7 cyfr) 
Ld zmienna podwojnej precyzji (16 cyfr 
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Brak znaku deklaracji typu oznacza zmienną pojedynczej precy- 
zji, np.: 


PIŁY deklaracja zmiennej podwojnej precyzji 
MINIMUM! deklaracja zmiennej pojedynczej precyzji 
LIMIT% deklaracja zmiennej całkowitej 

NS deklaracja zmiennej alfanumerycznej 


ABC deklaracja zmiennej pojedynczej precyzji 


Istnieje takze inna metoda deklarowania typu zmiennych. 
Są to instrukcje: DEFINIT, DEFSTR, DEFSNG, DEFDBL opisane 


w dalszych rozdziałach. 


Postać stałych i zmiennych w pliku dyskowym. 

Przy dostępie sekwencyjnym do pliku dyskowego stałe i zmienne 
zapisane są w postaci znakowej, tj. 1 cyfra zapisana jest 

w jednym bajcie. Np. liczbę 3850 reprezentuje zapis na 
czterech bajtach w postaci I33I38I35I130I. 

Przy dostępie bezpośrednim do pliku dyskowego stałe i zmienne 


zapisane są jako: 


liczby całkowite (max 4 cyfry> na 2 bajtach 
liczby pojedynczej precyzji (max 7 cyfr)» na 4 bajtach 
liczby podwojnej precyzji (max 16 cyfr” na 8 bajtach. 


1.7.2. Zmienne indeksowe 


Kazdy element tablicy reprezentowany jest przez nazwę zmiennej 
indeksowej 1 indeks, ktory jest liczbą całkowitą lub wyraze— 
niem całkowitym. Zmienna indeksowa ma tyle indeksow ile jest 
wymiarow tablicy. Maksymalna liczba wymiarow tablicy wynosi 
255. Maksymalna liczba przypadająca na jeden wymiar wynosi 
32767. 
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1.8. Konwersje typu 


Obowiązują następujące zasady konwersji typow: 


1 Jezeli stała numeryczna jednego typu jest podstawiona do 
zmiennej numerycznej innego typu, to umieszczona w pamięci 
będzie liczba typu zadeklarowanego przez nazwę zmiennej. 
Jezeli zmiennej alfanunerycznej przyporządkowana jest 


wartosć numeryczna lub odwrotnie, występuje błąd "Błąd 
typow”. 


Przykład: 


10 AŻ = 23.42 
20 PRINT A% 
RUN 

23 


2> Podczas obliczania wyrazen wszystkie operandy operacji 
arytmetycznych i relacji poddawane są konwersji do tego 
samego stopnia dokładności odpowiadającego najbardziej 
dokładnemu operandowi. Rezultat operacji arytmetycznych 
uzyskuzje ten sam stopien dokładności. 


Przykład: 

10 DY = 6%/7 — obliczenia były podwojnej 

20 PRINT DY4 precyzji, rezultat został 

RUN podstawiony do D* jako 
.857142857142857 1 wartość podwojnej precyzji 

10 D = 6%/7 — obliczenia były podwojnej 

20 PRINT D precyzji, rezultat został 

RUN podstawiony do D i zaokrąglo- 
„857143 ny do wartosci pojedynczej 


precyzji. 
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3) 


4) 


5) 


Operatory logiczne powodują konwersję swoich operandow do 
liczb całkowitych i dają w wyniku liczbę całkowitą. Operan- 
dy muszą mieścić się w zakresie -— 32768 do 32767, w prze- 
ciwnym razie wystapi błąd "Przepełnienie". 

Jezeli wartość zmiennopozycyjna lub stałopozycyjna jest 
poddawana konwersji do wartosci całkowitej, częsć ułamkowa 


jest zaokrąglona, np.: 


10 C% =55.88 
20 PRINT C% 
RUN 
56 


Jezeli zmiennej podwojnej precyzji jest nadawana wartość 
pojedynczej precyzji, tylko pierwsze siedem cyfr liczby 
poddanej konwersji będzie istotne. Dzieje się tak dlatego, 
ze wartość pojedynczej precyzji dostarcza jedynie siedem 
dokładnych cyfr. Roznica pomiędzy wydrukowaną liczbą pod- 
wojnej precyzji 1 pierwotną wartoscią pojedyńczej precyzji 
będzie mniejsza niz iloczyn pierwotnej wartosci pojedyńczej 
precyzji i 6.3E-8. 


Przykład: 


10 A = 2.04 

20 BY = A 

30 PRINT A; B* 

RUN 

2.04 2.039999961853027 


1.9. Wyrazenia i operatory. 


Wyrazenie moze byc po prostu stałą numeryczną lub alfanum -— 
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ryczną, zmienną, lub moze być kombinacją stałych i zmiennych z 
operatorami dającą pojedynczą wartosć. Operatory przedstawiają 
matematyczne lub logiczne operacje na wartosciach. Operatory 
występujące w języku BASIC można podzielic na 4 kategorie: 


1 arytmetyczne, 
2> relacyjne, 
3> logiczne, 
4> funkcyjne. 


1.9.1. Operatory arytnetyczne. 


Operatorami arytmetycznymi w kolejności ich priorytetow są: 


Operator! Operacja Przykład 
© Potęgowanie X CY ; X (YZ) 
- Negacja -X : XEC-ZY) 
e, / Mnozenie i dzie- X£Y ; X+Y:Z 
lenie zmienno— 
przecinkowe X ZY ; Q=SY>/Z 
+, — Dodawanie i X ŁY ; (X+Y>/Z 
odejmowanie X -Y 


Obowiązują zasady kolejnosci wykonywania działań zgodnie z 
powyzszymi priorytetami. Zmiana kolejnosci mozliwa jest przy 


uzyciu nawiasow. 


DZIELENIE CAŁKOWITE I DZIAŁANIE MODULO 


Dwa dodatkowe operatory są dostępne w jezyku BASIC. 
Realizuja one dzielenie całkowite 1 działanie modulo. 
Dzielenie całkowite jest oznaczone znakiem 1. Operandy są 
zaokrąglone do wartości całkowitych ( muszą być z zakresu 
-32768 do 32767) przed wykonaniem dzielenia. Wynik jest 
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"obcięty" do wartosci całkowitej (nie jest zaokrąglony), np.: 
10 14=2 
25.68 A 6.90 = 3 
Operacja dzielenia całkowitego jest wykonywana po operacjach 
mnozenia i dzielenia zmiennopozycyjnego. Działanie modulo jest 
oznaczone operatorem MOD. Daje ono w wyniku. wartość całkowitą, 


ktora jest resztą z dzielenia całkowitego, np.: 


10.4 MOD 4 = 2 (10/4=2 i reszta 2) 
25.68 MOD 6.99 = 5 (26/7=3 1i reszta 5) 


Działanie modulo jest wykonywane po operacji dzielenia całko— 


witego. 


DZIELENIE PRZEZ ZERO I BŁĄD "Przepełnienie* 


Jezeli w trakcie obliczeń wystąpi dzielenie przez zero 
drukowany jest komunikat "Dzielenie przez zero”, a rezultatem 
obliczen jest maszynowy odpowiednik nieskończoności z 
odpowiednim znakiem. Podobnie, gdy w trakcie obliczeń wystąpi 
działanie podnoszenia zera do potęgi ujennej, pojawi się 
komunikat "Dzielenie przez zero”, a rezultatem tego działania 
będzie maszynowy odpowiednik nieskończoności. W obydwu 
wypadkach działanie programu będzie kontynuowane. 

Jezeli przekroczone zostaną dopuszczalne zakresy pojawi się 
błąd "Przepełnienie", to dostarczany jest maszynowy 


odpowiednik nieskończonosci z odpowiednim znakiem. 


1.9.2. Operatory relacji 


Operatory relacji są uzywane do porownywania dwoch wartosci. 


Rezultatem tego porownania jest prawda (1) lub fałsz (0) 
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Sprawdzona relacja 


Rowność 
Nierownoścć 
Mniejsze niz 
Większe niz 
Mniejsze lub 
rowne 
Większe lub 


rowne 


wyrazenie 


>ź bł b = 
A 
-€ 


(Znak = występuje w instrukcji podstawienia LBT>. Jezeli 


występuje kombinacja operatorow arytmetycznych i relacji, 


operacje arytnetyczne są zawsze wykonywane jako pierwsze. 


1.9.3. Operatory logiczne 


W wyrazeniach operacje logiczne są wykonywane po operacjach 


arytmetycznych i badaniu relacji. 


W języku BASIC dostępne są następujące operatory logiczne 


ustawione wg priorytetow (od najwyzszego?: 


WOT 


x 
1 
O 


O O b b KK 


NOT X 


© k © b KK 


X AND Y 


O O© © Pr 
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OR X Y XORY 

1 1 

© 1 (o) 1 

0 1 1 

O 0 [0 ki 
XOR X Y X XOR Y 

1 1 0 

1 0 1 

0 1 1 

0 0 0 
IMP X Y X IMP Y 

1 1 1 

1 0 0 

O 1 1 

O 0 1 
EQU X Y X EQU Y 

1 O 1 

1 1 O 

0 0 0 

0 1 1 


Operatory logiczne mogą być uzywane np.: 
w instrukcjach IF 


IF D>200 AND F<4 THEN 80 
IF I>10 OR K<O THEN 50 
IF NOT P THEN 100 


Operatory logiczne powodują konwersję swoich operandow do 
16-to bitowej liczby całkowitej ze znakiem, z zakresu —32768 
do 32767 (jezel. operandy nie mieszczą się w podanym zakresie, 
występuje błąd). Jezeli obydwa operandy mają wartość 0 lub -1 
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operator logiczny dostarcza wynik rowniez w postaci 0 lub -1. 
Mozliwe jest uzycie operatorow logicznych lub testowania 
zawartosci bajtow, np.: operator AND moze być użyty do 
maskowania wszystkich z wyjątkiem jednego bitu (w bajcie 
statusu portu wejscia/wyjscia) komputera. Operator OR moze być 
użyty do stworzenia określonej wartosci binarnej (OR działa 
jako suma logiczna dwoch wartosci binarnych, a AND jako 
iloczyn logiczny). 


Przykłady działania operatorow: 


40OR 2 = 6 4 = binarnie 0100 i 2 = binarnie 0010, więc 
4 OR 2 = 6 (binarnie 0110) 


-1 AND8 = 8 —1 = binarnie 1111111111111111 
i 8 = binarnie 0000000000001000, więc 
—1 AND 8 = 8 (0000000000001000) 


15 AND 14 =14 15 = binarnie 1111 i 14 = binarnie 1110, 
więc 15 AND 14 = 14 (binarnie 1110) 

1.9.4. Operatory funkcyjne 
Nazwy funkcji moga występować w wyrazeniach w celu wykonania 
określonych operacji na operandach. W BASIC-u dostępnych jest 
szereg funkcji systemowych opisanych w dalszych rozdziałach 
(np.: SQR, SIN itp.>. Mozliwe jest takze definiowanie funkcji 
przez programistę, patrz instrukcje DEF, FN. 


1.9.5. Operacje alfanumeryczne 


Wwyrazenia alfanumeryczne mogą być łączone przy uzyciu znaku +, 


np.: 
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10 AS$S="NAZWA* : B8="ZBIORU" 
20 PRINT A$+B$ 

30 PRINT "NOWA" +A$+B8 

RUN 

NAZWAZBIORU 
NOWANAZWAZBIORU 


Wyrazenia alfanumeryczne moga być porownywane przy użyciu 
takich samych operatorow relacji, jak uzywane w przypadku 


porownywania liczb. 


Porownywanie odbywa się w ten sposob, ze jednocześnie z 
kazdego wyrazenia brane jest po jednym znaku 1 porownywane są 
ich kody ASCII. Jezeli wszystkie kody ASCII eą takie same, 
oznacza to, ze wyrazenia te są rowne. Jezeli kody ASCII roznią 
się, wyrazenie o nizszym kodzie jest mniejsze niz wyrazenie o 
wyzszym kodzie. Krotsze wyrazenie jest mniejsze od dłuzszego 
wyrazenia. Przy porownywaniu wszystkie znaki są znaczące, 


takze znaki puste. 


Przykład: 


"AA" <"AB" 

* NAZWAZBIORU"=" NAZWAZBIORU” 
"Xa">"XH" 

"CL ">"CL" 

"KOT* <"KOTY" 

B$<"16/04/84" gdzie B8$="14/04/84" 
"kg">"KG" 


Wszystkie stałe alfanumeryczne uzyte przy porownywaniu wyrazeń 


muszą być ujęte w cudzysłow. 
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1.10. Edycja wejściowa 


Jeżeli podczas wprowadzania linii programu napisany został 
niewłaściwy znak, może być on usunięty przez wciśnięcie 
przycisku CTRL-A lub CTRL-H. Wciśnięcie CTRL-A zaznacza 
usuwany znak przez ujęcie go w odwrotne kreski ukośne. CTRL-H 
usuwa znak powodując jednocześnie przesunięcie kursora o jedną 
pozycję w lewo. Po usunięciu niewłaściwych znaków można 


kontynuować wprowadzanie linii programu. 


Aktualnie wprowadzaną linię można usunąć naciskając CTRL-X. Po 
usunięciu linii automatycznie realizowany jest powrót karetki 
(CR). 


Poprawa linii programu, która znajduje się aktualnie w 
pamięci, odbywa się przez poprawne przepisanie linii programu 
z tym samym numerem linii. Po wprowadzeniu nowego wiersza 


automatycznie zostanie zapisana na miejscu starej linii. 


Inne korekty programu źródłowego możliwe są dzięki instrukcji 
EDIT opisanej w następnym rozdziale. 


Do usunięcia całego programu znajdującego się aktualnie w pa— 
mięci należy użyć instrukcji NEW. 


1.11. Komunikaty o błędach 


Wykrycie błędu przez interpreter języka BASIC, spowoduje 
przerwanie działania programu i wydrukowanie komunikatu 

o błędzie (patrz DODATEK A. KOMUNIKATY  BŁĘDOW). 

Komunikat błędu rozszerzony jest o informację, w której linii 
programu wystąpił błąd, 

np: "Błędne wywołanie funkcji w linii 100* 
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1.12. Opis przyjętej notacji syntaktycznej 


Syntaktykę opisanych w dalszych rozdziałach instrukcji przed- 


stawiono stosując następujące reguły: 


1? 


2) 


3) 


4) 


52 


6) 


7) 
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Słowa pisane duzymi literami nuszą być wprowadzane dokład- 
nie tak jak podano. 

Słowa pisane małymi literami ujęte w nawiasy trojkątne (<>) 
oznaczają parametry podawane przez uzytkownika. 

Elementy instrukcji ujętej w nawiasy kwadratowe ([]) są 
opcjonalne. 

Wszystkie znaki interpunkcji kropki, przecinki, sredniki, 
dwukropki itp. oraz nawiasy zwykłe, znaki rownosci muszą 
występować dokładnie w miejscach, w ktorych je zaznaczono. 
Elementy instrukcji zakonczone wielokropkiem (...> mogą być 
powtarzane dowolną ilosc razy (az wypełnią całą linii). 
Spośrod elementow instrukcji rozdzielonych pionową kreską 
I» należy wybrać dokładnie jeden. 

Słowa zastrzezone muszą być poprzedzone i zakończone 


spacją. 
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2. INSTRUKCJE STERUJĄCE 


2.1. NEW 


Instrukcja usuwa program aktualnie będący w pamięci 
operacyjnej oraz wartości wszystkich zmiennych. Instrukcja NEW 
jest instrukcją sterującą uzywaną do czyszczenia pamięci przed 


wprowadzeniem nowego programu. 
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2.2. RUN [<numer linii>] 
RUN <nazwa pliku>[(,RI 


W pierwszym przypadku instrukcja ta powoduje wykonanie 
programu będącego aktualnie w pamięci. Jezeli parametr <numar 
linii> jest podany, wykonywanie programu rozpoczyna Się od tej 
własnie linii. W przeciwnym razie wykonanie programu 
rozpoczyna się od linii o najnizszym numerze. Po wykonaniu 
instrukcji RUN, następuje powrot do poziom instrukcji steru- 


jących, sygnalizowane komunikatem OK. 


Przykład: 


RUN 


W drugim przypadku instrukcja ta powoduje załadowanie programu 
z dysku do pamięci i wykonywanie tego progranu. 

śnazwa pliku> jest nazwą uzytą w instrukcji SAVE /system 
operacyjny CP/J uzupełnia ją o domyślne rozszerzenie „.BAS/. 
Instrukcja RUN zamyka wszyskie otwarte pliki i usuwa aktualną 
zawartość pamięci przed załadowaniem danego programu. Uzycie 
parametru opcjonalnego R pozostawia wszystkie pliki danych 


otwarte. 


Przykład: 


RUN "PROGN12" ,R 


RUN - uruchomienie programu umieszczonego w pamięci 


operacyjnej (instrukcją LOAD lub wprowadzonego 
z klawiatury) 
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2.3. AUTO [(<numer linii>l[(,<krok>]] 


Instrukcja AUTO służy do automatycznego generowania numerow 
linii programu po kazdorazowym wciśnięciu przycisku CR. 

AUTO bez parametrow generuje numery linii z krokiem 10. 
Jezeli występuja obydwa parametry to numeracja rozpoczyna się 
od <numer linii>, a kolejne linie uzyskują numery powiększone 
o <krok>. Jezeli po <numer linii> wystąpi tylko przecinek, a 
drugiego parametru nie będzie, to za <krok> przyjęta zostanie 
wartosć tego parametru z ostatnio uzywanej instrukcji AUTO. 
Jezeli wygenerowany zostanie numer linii, ktory został juz 
wczesniej uzyty, to zaraz za nim pojawi się znak gwiazdki **" 
- jako ostrzezenie dla użytkownika, ze wprowadzenie tej linii 
spowoduje usunięcie z pamięci lin1li mającej ten sam numer. 
Wcisnięc/'- CR bezposrednio po gwiazdce zachowa wczesniej 
wpisaną linię i spowoduje wygenerowanie kolejnego numeru 
linii. Działanie instrukcji AUTO mozna przerwać wciskając 
CTRL-C. Aktualna linia nie jest wpisywana do pamięci a system 


powraca do poziomu instrukcji sterujących. 
Przykłady: , 


Generowane numery linii wyswietlane są 


na ekranie pionowo 


AUTO: 10, 20, 30, 40, 
AUTO 100 100, 110, 120, 130, 
AUTO 200,5 200, 205, 210, 215, 
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2.4. LIST (<numer linii>]l 
LIST (<numer linii>(-l<numer l1ini1>]]1] 


Instrukcje te słuzą do wyswietlania całego lub częsci programu 
będącego aktualnie w pamięci operacyjnej. Po jej wykonaniu 
BASIC powraca zawsze do poziom instrukcji sterujących. 


Przykłady: 


LIST 
spowoduje wyświetlenie całego programu będącego aktualnie 
w pamięci 


LIST 100 


wyswietlona zostanie jedna linia o numerze 100 


LIST -100 
wyświetlone będą wszystkie linie o numerach mniejszych 
lub rownych 100 


LIST 100- 
spowoduje wyświetlenie linii o numerach większych lub 
rownych 100 


LIST 100-500 
zapewnią wyświetlenie linii o numerach od 100 do 500 


włącznie. 


Wyswietlanie programu mozna przerwać przez nacisnięcie 
klawiszy CTRL-C. 
Uzycie klawiszy CTRL-S spowoduje zatrzymanie wyswietlania. 


Ponowne uzycie CTRL-S wznawia wyswietlanie. 
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2.5. LLIST [<numer linii>] 
LLIST (<numer linii>[(-[<numer linii>]]1) 


Instrukcje te słuzą do wylistowania na drukarce całego lub 
częsci programu mieszczącego się aktualnie w pamięci. Po jej 
wykonaniu BASIC powraca do poziomu instrukcji sterujących. 
Standardowa ilość znakow wyprowadzanych na drukarkę wynosi 80 


znakow. 
Drukarka musi być podłączona do zestawu komputerowego, w 
przeciwnym wypadku działanie programu ulega zawieszeniu do 


momentu przydzielenia drukarki. 


Przykłady: patrz instrukcja LIST. 
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2.6. DELETE (<numer linii>Jl([-<numer linii>] 


Instrukcja ta słuzy do usuwania wyspecyfikowanych linii 
programu. Po jej wykonaniu następuje powrot do poziomu 
instrukcji sterujących. 

W instrukcji DELETE musi występować przynajnniej jeden 

z parametrow. Jezeli nie występuje zaden z nich pojawia się 
bład *Błędne wywołanie funkcji". 


Przykłady: 
DELETE 40 usuwa linie 40 
DELETE 40-100 usuwa linie od 40 do 100 włącznie 
DELETE —40 usuwa wszystkie linie o numerach 


mniejszych niz 40 oraz linię 40. 
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2.7. BDIT <nunmer linii> 


Instrukcja ta inicjuje pracę w trybie edytora. umozliwia 


wprowadzenie zmian w wyspecyfikowanej linii programu. 


Wyświetla 
następuje 
edytora. 


nD 
nc 


n nspacja 
nBS 


numer linii poddawanego edycji i spacje, po czym 
oczekiwanie na wprowadzenie jednej z dyrektyw 


LISTA DYREKTYW EDYTORA 
—- listowanie linii; 


— zakończenie pracy; wprowadzenie dokonanych zmian; 


— zakończenie pracy bez wprowadzania dokonanych 


zmian; 

— rozpoczęcie edycji od początku bez wprowadzenia 
dokonanych zmian; 

— rozszerzenie linii o nowy tekst; 

- wprowadzenie nowego znaku lub ciągu znakow na 
aktualną pozycję kursora; 

- usunięcie wszystkich znakow w linii na prawo od 
kursora (dalej działa jak X); 

— usunięcie n znakow; j 

- zmiana n znakow; 

- poszukiwanie ciagu n znakow GC; 

- poszukiwanie ciągu n znakow c 1 usuwanie przeszu- 
kiwanego tekstu; 

-— przesunięcie kursora n pozycji w prawo; 


- przesunięcie kursora n pozycji w lewo; 


CR - zakończenie pracy w trybie edytora; 

CTRL-A — inicjacja trybu edytora dla aktualnie wprowadzo- 

nej linii programu; 

"Błąd składniowy” — wystąpienie w czasie wykonywania 
programu tego błędu powoduje, ze BASIC 
automatycznie powraca do trybu edytora 
dla linii programu, w ktorym wystąpił 
błąd; 
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n —- oznacza liczbę całkowitą, jej brak w powyzszych 


dyrektywach rownowazny jest n=l. 


Wprowadzenie dyrektyw edytora nie jest sygnalizowane wyswie— 


tleniem ich na monitorze. 


OPIS DYREKTYW EDYTORA 


1. Przesunięcie kursora 

n Wcisnięcie klawisza spacji przesuwa kursor o jedną 
pozycję w prawo. Jezeli podana zostanie liczba n, to 
kursor przesunie się o n pozycji w prawo. Wyswietlane 
są kolejne znaki w linii. 


nBS Wprowadzenie liczby n i znaku BS przesuwa kursor o n po- 
zycji w lewo. Wyswietlane są te znaki, ktore mija przesu- 
wający się kursor. 


2. Wprowadzanie tekstu 


I Wcisnięcie znaku I umozliwia wprowadzenie tekstu, ktory 
umieszczony jest na aktualnych pozycjach kursora. Wprowa— 
dzane znaki są wyświetlone na ekranie monitora. Wprowa- 
dzanie tekstu mozna zakończyć wciskając CR - następuje 
wyświetlenie pozostałych znakow linii programu i powrot 
do poziomu instrukcji sterujących. W trakcie wykonywania 
dyrektywy I mozna usuwać znaki połozone na lewo od 


kursora wciskając klawisz BS. 


X Dyrektywa X umozliwia rozszerzenie linii o nowy tekst. 
Kursor zostanie przesunięty na koniec linii, a dalsze 
działanie dyrektywy X jest identyczne jak I. Zakończenie 
dopisywania tekstu realizuje się poprzez wcienięcie CR. 
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3. Usuwanie tekstu 


nD Usuwa w linii n znakow lezących na prawo od kursora. 
Usuwane znaki zostaną oznaczone i wyświetlone na monito 
rze. Kursor ustawia się na pierwszej pozycji na prawo od 
usuniętego znaku. Jezeli liczba n przekracza ilosć znakow 
do końca linii, usuwane są w linii wszystkie znaki 


lezące na prawo od kursora. 


H Usuwa wszystkie znaki lezące na prawo od kursora i umo 
zliwia dopisanie tekstu do końca linii. Dyrektywa ta jest 
przydatna do zmiany końcowego fragmentu linii. 


4. Poszukiwanie tekstu 


nSc Dyrektywa ta powoduje poszukiwanie n-tego wystąpienia 
w linii znaku c i ustawienie kursora przed tym znakiem. 
Znak ten na aktualnej pozycji kursora jest ignorowany 
w trakcie poszukiwania — przeszukiwanie rozpoczyna się 
od następnego znaku. Jezeli znak c nie został znaleziony, 
kursor zatrzyma się na końcu wiersza. Wszystkie przeszu- 
kiwane znaki są wyswietlane. 


nKc Dyrektywa ta jest podobna do nSŚc z tą roznicą, ze 
wszystkie przeszukiwane znaki są usuwane Zz linii. 
Kursor ustawia się przed znakiem c, a usunięty fragment 
linii zostanie oznaczony i wyświetlony na monitorze. 


5. Zmiana tekstu 


nc Dyrektywa nC umozliwia zmianę n znakow występujących na 
prawo od kursora na n znakow wprowadzonych z klawiatury 
bezpośrednio po tej dyrektywie . Po zmianie znakow 
następuje powrot do trybu edytora. 
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6. Zakończenie i powrot do trybu edytora 


Powrot Wprowadzenie tej dyrektywy (klawisz CR” spowoduje 
karetki wyświetlenie pozostałej częsci linii, wprowadzenie 
zmian i powrot do poziomu instrukcji sterujących. 


E Dyrektywa E ma takie samo działanie jak CR z wy- 
jatkiem tego, ze pozostała część linii nie jest wy- 
sświetlana. 

Q Powoduje powrot do poziomu instrukcji sterujących 
bez wprowadzania zmian wprowadzanych w trybie 
edytora. 

L Powoduje wylistowanie pozostałej częsci linii, 


wprowadzanie dokonanych zmian 1 ponowne ustawienie 
kursora na początku linii, nadal w trybie edytora. 
Dyrektywa L jest zwykle uzywana zaraz po wywołaniu 


edytora. 


A Dyrektywa ta pozwala zozpoczącć edycję od początku 
bez wprowadzania dokonanych zmian. Kursor ustawia 


się na początku linii. 


UWAGA 


1. Jezeli w trybie edytora wprowadzony zostanie nierozpoznany 
znak, sygnalizowane jest to sygnałem akustycznym (CTRL-G) 


i znak ten jest ignorowany. 


2. Jezeli w czasie wykonywania programu wystąpi błąd "Bląd 
składniowy"” spowoduje to automatyczne przejscie do trybu 
edytora dla linii, w ktorej wystąpił błąd, np.: 
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10 K= 24) 

RUN 

Błąd składniowy w linii 10 
10 


Po zakończeniu edycji linii nalezy wcisnąć E lub CR. 
Wprowadzona zostanie nowa postać linii, przy czym nie 
zostaną zachowane wartości zmiennych. Chcąc je sprawdzic 
nalezałoby wczesniej wyjść z trybu edytora dyrektywa Q. 
Zapewni to zachowanie wartosci zmiennych. 


Przejscie do pracy trybu edytora w aktualnie wprowadzonej 
linii odbywa się przy uzyciu klawiszy CTRL-A. Nastąpi 
przejscie do nowej linii, w ktorej wyświetlone zostaną 
wykrzyknik i spacja. Kursor ustawi się na pierwszej pozycji 
linii. 


Jezeli chcemy powrocic do własnie wprowadzonej linii 

i poddać go edycji, nalezy uzyć instrukcji "EDIT". 
Symbol *.” numeru linii odnosi się zawsze do aktualnej 
linii. 
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2.8. RENUM [([<nowy numer>),[,(<stary numer>](,<krok>]]] 


Iństrukcja ta słuzy do zmiany numerow linii programu. 

<nowy numer> jest pierwszym numerem linii, ktory ma być uzyty 
w nowej sekwencji. Przy braku tego parametru przjmuje się 
domyslnie 10. 

śstary numer> jest numerem linii programu aktualnie będącego w 
pamięci, od ktorego przenumerowanie ma się rozpocząć. Przy 
braku tego parametru przyjmuje się pierwszą linię program 
będącego aktualnie w pamięci. 

<krok> jest krokiem z jakim ma nastąpić przenumerowanie. Przy 
braku tego parametru przyjmuje się domyslnie 10. Instrukcja 
RENUM zmienia takze wszystkie numery linii w instrukcjach 
GOTO, ON ... GOSUB i ERL tak, by odpowiadały nowym numerom 
1inii. Jezeli po ktorejs z tych instrukcji pojawi się nie 
istniejący numer linii, powoduje to pojawienie się komunikatu 
"Brak linii programu XXXXX w YYYYY". 

Nieprawidłowy odnośnik numeru linii (XXXXX> nie jest zmieniany 
przez RENUM, ale numer linii (YYYYY> moze być zmieniony. 
Instrukcja RENUM nie moze być uzyta do zmiany kolejnosci 
liniiprogramu np.: RENUM 15, 30, gdy program ma trzy linie o 
numerach 10, 20, 30. Nie moze ona nadać liniom numerow 
większych od 65529 — spowoduje to powstanie błędu 

"Błędne wywołanie funkcji w linii". 


Przykłady: 

RENUM - nastąpi przenumerowanie wszystkich linii 
programu; pierwsza linia będzie miała 
numer 10, krok pomiędzy numerami będzie 
wynosił 10. 

RENUM 300, ,50 - nastąpi przenumerowanie wszystkich linii 


programu; pierwsza linia będzie miała 
numer 300, krok pomiędzy numerami linii 
będzie wynosił 50. 
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RENUM 1000,900,20 


42 


- nastąpi przenumerowanie wszystkich linii 
programu począwszy od linii o numerze 
900, która po przenumerowaniu będzie 
miała numer 1000, a krok pomiędzy 
numerami linii będzie wynosił 20 
(1000, 1020, itd). 
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2.9. TRON 
TROFF 


Instrukcja ta służy do sledzenia wykonywania poszczegolnych 
instrukcji programu. 

Instrukcja TRON pomocna jest w wyszukiwaniu błędow w progra- 
mie, umozliwia wyświetlanie numerow aktualnie wykonywanych 
linii programu. Numery linii drukowane są w nawiasach kwadra- 
towych. Rezygnacja ze śledzenia wykonywania programu odbywa 
się przez uzycie instrukąqji TROFF (efekt ten występuje takze 
po wykonaniu instrukcji NEW). 


Przykład: 


TRON 
OK 
LIST 
10 K=10 
20 FOR J = Łt TO 2 
30 L = K + 10 
40 PRINT j; K; L 
50 K=K + 10 
60 NEXT 
70 END 
OK 
RUN 
10 20 30 40 1 10 20 
50 60 30 40 2 20 30 
50 60 70 
OK 
TROFF 
OK 
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2.10. CONT 


Instrukcja ta służy do wznowienia wykonywania programu zawie- 
szonego w wyniku działania instrukcji STOP lub END, lub też 

w wyniku wprowadzenia z klawiatury CTRL-—C. 

Wykonanie programu wznawiane jest od miejsca, w którym nastą- 
piło przerwanie. 

Instrukcja CONT jest zwykle używana w połączeniu z instrukcją 
STOP np. w czasie uruchamiania skomplikowanych fragmentów pro- 
gramu. Jeżeli wykonywanie programu jest zawieszone, można 
sprawdzić wyniki pośrednie i zmienić je używając instrukcji 
języka BASIC w trybie natychmiastowym. Wznowienia wykonywania 
programu można dokonać używając instrukcji CONT lub też 
używając w trybie natychmiastowym instrukcji GOTO z numerem 
linii, od którego rozpocząć się ma kontynuacja. 

Użycie instrukcji CONT jest niedozwolone, jeżeli podczas 


zawieszenia wykonywania programu był on poddany edycji. 
Przykład: 


Przerwanie w linii 100 

OK 

PRINT A$ 

MIKROKOMPUTER 

OK 

AS$S=*"MIKROKOMPUTER ELWRO 800 JUNIOR* 
OK 

PRINT A$ 

MIKROKOMPUTER ELWRO 800 JUNIOR 
OK 

CONT 
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4. DEKLARACJE 


3.1. CLEAR( ,(<wyrazenie 1>](,<śwyrazenie 2>]] 


Instrukcja ta zeruje wszystkie zmienne numeryczne oraz 
wypełnia wszystkie zmienne alfanumeryczne znakiem *puste" (nie 
mylić ze spacją). 

Opcjonalnie mozliwe jest okreslenie wielkosci pamięci 
dostępnej dla interpretera języka BASIC i wielkości stosu. 
śwyrażenie 1> gdy występuje, okresla najwyzszy adres pamięci 
dostępnej dla interpretera BASIC. 

śwyrazenie 2> okresla obszar pamięci przeznaczony na Stos. 
Brak tego parametru oznacza przyjęcie standardowej długości 
256 bajtow lub jednej osmej dostępnej pamięci — w zalezności 


od tego, ktora z wielkosci jest mniejsza. 
Przykład: 

CLEAR 

CLEAR, 32768 


CLEAR, , 2000 
CLEAR, 32768, 2000 
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3.2. [LETJ]<zmienna>=ćwyrażenia> 


Instrukcja LET umożliwia podstawienie wartości wyrażenia do 


zmiennej. 


Słowo LET jest opcjonalne, tzn. 


znak równości jest 


wystarczający do podstawienia wartości wyrażenia do zmiennej. 


Przykład: 


110 LET D=12 

120 LET E=12'2 

130 LET F=12'4 

140 LET SUM = D+E+F 


110 D=12 

120 E=12'2 

130 F=12'4 

140 SUM = D+EB+F 
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3.3. DATA <lista stałych> 


Instrukcja ta służy do przechowywania stałych numerycznych 

i alfanumerycznych wykorzystywanych przez instrukcje READ. 
(Patrz READ). 

Instrukcja DATA jest instrukcją bierną i noze byc umieszczona 
w dowolnym miejscu program. Moze ona zawierać tyle stałych, 
oddzielonych przecinkami, ile miesci się w jednej linii. 
Liczba uzytych w programie instrukcji DATA jest dowolna. 
Instrukcje READ wykorzystują dane zapisana w instrukcjach DATA 
w kolejnosci wyznaczonej przez ich numery linii. Wszystkie 
dane zgromadzone w instrukcjach DATA mogą być traktowane jako 
jeden ciągły plik danych, niezaleznie od tego, jak rozdzielane 
są one pomiędzy poszczegolne instrukcje DATA, i w ktorych 
miejscach programu instrukcje te wystepują. 

<lista stałych> moze zawierać stałe numeryczne dowolnego 
formatu. Występowanie na liscie stałych wyrażeń numerycznych 
jest niedozwolone. Stałe alfanumeryczne występujące w 
instrukcji DATA muszą być ujęte w cudzysłowy (*...*”)> tylko w 
przypadku, gdy zawierają przecinki, apostrofy lub znaczące 
spacje rozpoczynające lub konczące stałą. W innym przypadku 
cudzysłow jest zbędny. 

Typy zmiennych występujących w instrukcji READ muazą byc 
zgodne z typami odpowiadających im stałych z instrukcji DATA. 
Dane z instrukcji DATA mogą być wykorzystywane od początku po 
wykonaniu instrukcji RESTORE. 


Przykład: 


200 DATA 37, 12.75, BASIC 
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3.4. DIM <lista zmiennych indeksowych> 


Instrukcja ta służy do określenia maksymalnych wymiarów 
tablic. W trakcie jej wykonania wydzielony jest także odpowie— 
dni obszar pamięci na deklarowane tablice. 

Bez deklaracji DIM można używać tablice o maksymalnym wymia— 
rze 10. 

Jeżeli wartość indeksu elementu tablicy przekroczy zadeklaro- 
waną wielkość, wystąpi błąd "Zły indeks*. Minimalna wartość 
indeksu wynosi zero chyba, że zadeklarowano inną wartość 
minimalną używając instrukcji OPTION BASE n ( zob. OPTION 
BASE). 

Instrukcja DIM zeruje wszystkie elementy zadeklarowanych 
tablic. 


Przykład: 
10 DIM ACZO? 
20 FOR I=0 TO 20 


30 READ ACI) 
40 NEXT I 
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3.5. BRASE <lista zmiennych indeksowych> 


Inetrukcja ta słuzy do usuwania tablic z programu. 
Tablice, ktore zostały usunięte instrukcją ERASE mogą zostac 


zadeklarowane ponownie z innymi wymiarami, mozna tez wykorzys— 


tać do innych celow przeznaczony dla nich obszar pamięci. 

w przypadku proby deklaracji tablicy z innymi wymiarami niz 
pierwotnie zadeklarowane bez wczesniejszego uzycia instrukcji 
ERASE wystąpi błąd. 

"Podwojna definicja w linii ...* 


Przykład: 


450 ERASE A, B 
460 DIM B<C99) 
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3.6. OPTION EASE n 


gdzie: n jest 1 lub O 


Instrukcja ta służy do deklarowania minimalnej wartości 
indeksów tablic. 

Jeżeli n nie występuje przyjmuje się domyślnie n=0. 

Jeśli wykonywana jest instrukcja OPTION BASE 1, najniższą 
wartością jaką może przyjąć indeks tablicy jest 1. 
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3.7. DEF<typ><zakres liter> 


gdzie: 
<typ> oznacza INT, SNG, DBL lub STR 


Instrukcja ta służy do deklaracji zmiennych jako zmiennych 
typu całkowitego, pojedynczej precyzji, podwójnej precyzji 

lub zmiennych alfanumerycznych. Instrukcja DEF deklaruje typ 
wszystkich zmiennych, których nazwy rozpoczynają od wyspecyfi- 
kowanej litery lub liter. Należy jedak zaznaczyć, że znak 
deklaracji typu !, %, 8, % ma większy priorytet od instrukcji 
DEF. 

Jeżeli nie została wykonana żadna instrukcja deklaracji typu, 
to BASIC przyjmuje, że wszystkie zmienne bez znaku deklaracji 
typu są zmiennymi numerycznymi o pojedynczej precyzji. 


Przykłady: 

10 DEFDBL L-P — Wszystkie zmienne, których nazwy rozpoczy- 
nają się od liter L, M, N, O będą zmienny- 
mi podwójnej precyzji. 

10 DEFSTR A,B — Wszystkie zmienne, których nazwy rozpoczy- 


nają się od litery A lub B będą zmiennymi 


alfanumerycznynmi. 


10 DEFINT I-N,W-Z -— Wszystkie zmienne o nazwach zozpoczynająa- 
cych się od liter: I, J, K, L, M, N, w, X, 
Y, Z będą zmiennymi numerycznymi typu 


całkowitego. 
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3.8. DEP FN<nazwa?>l (€lista perametrów>)>]=<definicja funkcji> 


Instrukcja ta definiuje funkcję napisaną przez użytkownika. 
<nazwa> musi być dozwoloną nazwą zmiennej. Nazwa ta poprzedzo- 
na literami FN staje się nazwą funkcji. 

<lista parametrów> zawiera oddzielone przecinkami nazwy zmien 
nych, które występują w definicji funkcji i stanowią parametry 
formalne definiowanej funkcji. W momencie wywołania funkcji 
nadawane są im wartości aktualne. 

<definicja funkcji> jest wyrażeniem, które pcdaje sposób obli- 
czenia wartości funkcji. Wyrażenie to msi się mieścić w jed- 
nej linii. Nazwy zmiennych, które występują w tym wyrażeniu 
służą jedynie definicji funkcji i nie nają Związku ze zmienny- 
mi o tej samej nazwie, a występującymi w treści programu. 
Nazwy zmiennych użyte w <definicji funkcji> mogą lecz nie 
muszą występować na <liście parametrów>. 

Jeśli występują, to ich wartości wyliczane są w momencie 
wywoła-nia funkcji. W przeciwnym wypadku wykorzystywana jest 
wartość zmiennej obliczona wcześniej w trakcie wykonywania 
programu. 

Definiowane przez użytkownika funkcje mogą być numeryczne lub 
alfanumeryczne. Jeżeli typ funkcji definiowany jest poprzez 
jej nazwę, wartość wyrażenia poddana konwersji do tego typu, 
zwracana jest do instrukcji wywołującej funkcję. Jeżeli 
wystąpi niezgodność typów funkcji i argumentu funkcji sygnali- 
zowany jest błąd "Błąd typów". 

Instrukcja DEF FN musi być wykonana przed ewentualnym wywoła— 
niem definiowanej przez nią funkcji. Gdy funkcja jest 
wywoływana przed jej zdefiniowaniem pojawi się błąd 
"Niezdefiniowana funkcja użytkownika”. 

Użycie instrukcji DEF FN w trybie natychmiastowym jest 


niedozwolone. 
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Przykład: 


410 DEF FNABCX,Y = X3 / Y'2 
420 T = FNABC(CI;J 


W linii 410 definiowana jest jest funkcja FPNAB. 
W linii 420 funkcja FNAB jest wywoływana. 
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3.9. DEF USR [<cyfra>Jl=ćwyrażenie całkowite> 


Instrukcja ta służy do definiowania adresu początkowego pod- 
programu w języku wewnętrznym mikroprocesora (w asemblerze). 
Parametr <cyfra> jest parametrem nadającym numer podprogramowi 
w asemblerze. Może przyjmować wartości od 0 do 9, a więc 

w programie można deklarować od 1 do 10 podprogramów. 

Parametr ćwyrażenie całkowite> określa adres początkowy pro- 
gramu w asemblerze. 

W programie może występować dowolna liczba instrukcji DEF USR 
definiujących na nowo początki podprogramów. Dzięki temu moż- 
liwy jest dostęp do dowolnej liczby podprogramów. 


Przykład: 


200 DEF USR1 = 2400 
210 X = USR1ICY 2 / 2.89) 
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3.10. WIDTHILPRINT)<szerokość linii> 
WIDTH <szerokość linii> 


W przypadku pierwszej postaci instrukcji specyfikuje ona 
szerokość linii /wyrażoną liczbą znaków/ ekranu monitora lub 
drukarki. 

Ww przypadku drugiej postaci instrukcji określa ona szerokość 
linii ekranu monitora /wyrażoną liczbą znaków/. 

śszerokość linii> musi być liczbą całkowitą z zakresu 15-255. 
W przypadku użycia instrukcji WIDTH bez parametrów szerokość 
linii i wysokość ekranu zostaną ustalone w sposób standardowy 
dla danego monitora. 

W przypadku pierwszej postaci instrukcji, jeżeli pominięte 
jest wyrażenie LPRINT, szerokość linii dotyczy ekranu moni— 
tora. Jeżeli wyrażenie LPRINT występuje w instrukcji, szero- 
kość linii dotyczy drukarki. 

Jeżeli jako wartość parametru <szerokość linii> podamy liczbę 
255, interpreter języka BASIC będzie traktował tę szerokość 
jako "nieskończoną", tzn. nigdy nie zrealizuje powrotu karetki 
/carriage return/. Jednakże w przypadku użycia funkcji POS lub 
LPOS szerokość linii przyjmuje wartość 0 po przekroczeniu 
pozycji 255. 
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4. INSTRUKCJE STERUJĄCE DZIAŁANIEM PROGRAMU 


4.1. GOTO <numer linii> 


Instrukcja ta realizuje bezwarunkowy skok programu do podanego 
numeru linii. 

Jeżeli następuje skok do instrukcji czynnej, wykonywana jest 
ta instrukcja i następne. Jeżeli następuje skok do instrukcji 
biernej, wykonywanie programu rozpoczyna się od pierwszej in- 
strukcji czynnej posiadającej numer linii większy od podanego 


parametru ćnumer linii>. 


Przykład: 


10 READ R 

20 PRINT "R="; R, 
30 A = 3.14*R'2 

40 PRINT "POLE="; A 


50 GOTO 10 

60 DATA 5,7,12 
RUN 

R=$ POLE = 78.5 


R=7 POLE = 153.86 

R=12 POLE = 452.16 

? Brak danych w linii 10 
OK 
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4.2. GOSUB <numer linii> 


RETURN 


Instrukcje te służą do realizacji skoku (GOSUB> do podprogramu 
i powrotu z podprogramu (RETURN). 

Parametr ćnumer linii> podaje numer pierwszej linii 
podprogramu. Podprogram może być wywoływany w programie 
dowolną ilość razy. 

Może być on wywoływany z wnętrza innego podprogramu. Takie 
zagnieżdżenia programów ograniczone są jedynie dostępną 
pamięcią. 

Instrukcja RETURN powoduje powrót z podprogramu do następnej 
instrukcji po instrukcji GOSUB, która spowodowała skok do pod- 
programu. Podprogram może zawierać więcej niż jedną instrukcję 
RETURN. Podprogramy mogą występować w dowolnych miejscach pro- 
gramu. 

Ww celu uniknięcia niezamierzonego wejścia do podprogramu, 
należy przed podprogramem umieścić instrukcję STOP, END lub 
GOTO. 


Przykład: 


10 GOSUB 40 

20 PRINT "POWROT Z PROGRAMU" 
30 END 

40 PRINT "PODPROGRAM" 

50 PRINT "POLE FIGURY" 

60 RETURN 

RUN 

PODPROGRAM 

POLE FIGURY 

POWROT Z PODPROGRAMU 
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4.3. ON <wyrażenie> GOSUB <lista numerów linii> 
ON śwyrażenie> GOTO <lista numerów linii> 


Instrukcje te służą do wybrania odpowiedniego numeru linii 
programu w zależności od obliczonej wartości wyrażenia. 
Jeżeli np. wartość wyrażenia wyniesie 3 to nastąpi skok do 
trzeciego numeru linii. W przypadku, gdy wartość wyrażenia nie 
jest całkowita jest ona zaokrąglona do liczby całkowitej. 

W instrukcji ON ...GOSUB każdy numer linii na liscie powinien 
być pierwszą linią podprogramu. Jeżeli wartość wyrażenia jest 
zerem lub jest większa od liczby numerów linii na liście 
/1lecz nie jest większa od 255/ to następuje przejście do 
następnej instrukcji. Jeżeli natomiast wartość wyrażenia jest 
ujemna bądź większa od 255 pojawia się błąd "Błędne wywołanie 
funkcji w linii ...*. 


Przykład: 


100 ON L-1 GOTO 150,300,320,390 


150 ON Ms2 GOSUB 1000,1500,2000,2500 
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4.4. IF ćwyrażenie> (,] THEN <instrukcja>l numer linii> 
(ELSE <instrukcja>l numer linii>] 
IF <wyrażenie> GOTO <numer linii> 
[ELSE <instrukcja>l<numer lini1i>] 


Instrukcja ta umożliwia warunkowe sterowanie programem. 
Jeżeli wartość <śwyrażenie> nie jest równa zeru, wykonywana 
jest część instrukcji IF występująca po THEN albo skok GOTO. 
Po THEN może występować numer linii, do której należy wykonać 
skok lub jedna albo więcej instrukcji. Po GOTO występuje 
zawsze <numer linii>. Jeżeli wartość śwyrażenie> jest równa 
zeru to wykonywana jest ta część instrukcji IF, która 
ewentualnie występuje po ELSE. Pozostała część instrukcji IF 
jest 1ignorowana. Jeżeli nie występuje część instrukcji 
poprzedzona ELSE, wykonanię programu kontynuowane jest od 
następnej instrukcji czynnej. Przed THEN może występować 


przecinek. 

zagłębienia instrukcji IF 

instrukcja IF... THEN. ..ELSE może mieć kilka zagłębień. Ilość 
zagłębień limitowana jest tylko długością linii programu. 


Na przykład dozwolona jest instrukcja: 


IF X>Y THEN PRINT "WIEKSZY" ELSE IF Y>X 
THEN PRINT "MNIEJSZY NIŻ" ELSE PRINT *"ROWNY* 


Jeżeli instrukcja IF nie zawiera takiej samej liczby słów ELSE 
i THEN, każde słowo ELSE wiązane jest z najbliższym słowem 


THEN. Na przykład: 


IF A = B THEN IF B = € THEN PRINT "A= C* 
ELSE PRINT "A<>C" 


instrukcja ta nie spowoduje wydruku "ACQ>C* gdy A * B. 
Jeżeli instrukcja 1r...THEN z numerem linii wykonywana jest 
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w trybie natychmiastowym, to wystąpi błąd "Brak linii program 
w linii ...*, jeżeli wcześniej nie wprowadzono instrukcji 


program. z wyspecyfikowanym numerem linii. 
UWAGA: 


Używając instrukcji IF do sprawdzania równości wartości, które 
są rezultatem obliczeń zmiennoprzecinkowych należy pamiętać, 
że wewnętrzna reprezentacja liczb może nie być dokładna. 
Dlatego przy badaniu równości należy zakładać pewną 
dokładność. Na przykład badając, czy wartość zmiennej A wynosi 
1.0 należy użyć instrukcji IF w postaci: 


IF ABS(CA — 1.0><41.0E-6 THEN... 


Powyższy warunek zostanie spełniony, gdy wartość zmiennej A 


wyniesie 1.0 z błędem mniejszym niź 1.0E-—6. 
Przykład 1. 


200 IF I THEN GET %1,I > 
Instrukcja GET zostanie wykonana dla I £ O. 


Przykład 2. 


100 IF (I<20)> AND (I>10)> THEN DB = 1983 - I:GOTO 300 
110 PRINT *WYJSCIE POZA WARUNEK* 
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W powyższym przykładzie sprawdzany jest warunek czy wartość I 
jest większa niż 10, a mniejsza niż 20. Gdy I mieści się w tym 
zakresie, obliczona jest wartość zmiennej DB i wykonywany jest 
skok do linii 300. Gdy I jest poza zakresem, program 
kontynuowany jest od linii 110. 


Przykład 3. 

210 IF I=100 THEN PRINT A% ELSE LPRINT A$ 

Instrukcja ta steruje wyprowadzaniem wartości zmiennej A$ w 
zależności od wartości zmiennej I. Jeżeli I jest różna od 100, 


A$  wyprowadzane jest na drukarkę, w przeciwnym wypadku 


zmienna wyświetlana jest na monitorze. 
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4.5. FOR <zmienna>=x TO y [STEP z) 


NEXT (<zmienna>]l ,<zmienna>] 
gdzie x, y, z są wyrażeniami numerycznymi. 


Instrukcja ta służy do realizacji pętli programowej. 

śzmienna> jest zmienną sterującą pętli. Pierwsze wyrażenie 
numeryczne (x) jest początkową wartością <zmiennej>. 

Drugie wyrażenie numeryczne (y)> jest końcową wartością 
<zmiennej>. Instrukcje programu występujące po instrukcji FOR 
wykonywane są kolejno aż do napotkania instrukcji NEXT. Wtedy 
wartość <zmiennej> zwiększana jest o wielkość  wyspecyfikowaną 
przez STEP. Następnie sprawdzane jest, czy wartość <zmiennej> 
przekroczyła wartość końcową (y)?. Gdy nie przekroczyła — 
następuje powrót do pierwszej instrukcji występującej po 
instrukcji FOR 1 proces jest powtarzany. Jeżeli nie 
przekroczyła — wykonanie programu kontynuowane jest do 
pierwszej instrukcji występującej .po NEXT. W ten sposób 
realizowana jest pętla FOR...NEXT. Gdy STEP z nie występuje, 
wartość "z" przyjmowana jest domyślnie 1. Gdy z jest ujemne, 
końcowa wartość zmiennej musi być mniejsza od wartości 
początkowej. Za każdym przejściem pętli wartość <zmiennej> 
jest zmniejszana aż będzie ona miiejsza od wartości końcowej. 
Instrukcje w pętli nie są wykonywane, jeżeli x pomnożone przez 
znak z jest większe od y pomnożonego przez znak z. 

Jednej instrukcji FOR odpowiada jedna i tylko jedna instrukcja 
NEXT. 


ZAGNIEŻDŻANIE PĘILI 
Pętle FOR...NEXT mogą zagnieżdżać się tzn. wewnątrz jednej 


pętli FOR...NEXT mogą występować inne pętle FOR...NEXT. 
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Jeżeli występują pętle zagnieżdżone, to każda z nich musi 
posiadać własną, odrębną zmienną sterującą 

Jeżeli zagnieżdżone pętle mają ten sam punkt końcowy, można 
użyć pojedynczej instrukcji NEXT specyfikując jednak zmienne 
sterujące dla każdej instrukcji FOR. 

W instrukcji NEXT można opuścić nazwę zmiennej sterującej (lub 
nazwy zmiennych»; w tym wypadku instrukcja NEXT związana 
będzie z ostatnią instrukcją FOR. 

Jeżeli napotkana zostanie instrukcja NEXT bez odpowiadającej 
jej instrukcji FOR wystąpi błąd "NEXT bez FOR" i wykonywanie 


programu zostanie przerwane. 


Przykład 1. 
10K= 10 
20 FOR I = 1 TO K STEP 2 
30 PRINT I; 
40K=K + 10 
50 PRINT K 
60 NEXT 
RUN 

1 20 

3 30 

5 40 

7 50 

9 60 
OK 


Przykład 2. 


10J=0 - W tym przykładzie pętla nie jest wyko- 
20 FOR I = 1 TOJ nywana ponieważ wartość początkowa 

30 PRINT I zmiennej sterującej jest mniejsza od 
40 NEXT I wartości końcowej. 
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Przykład 3. 


10 J = 10 — W tym przykładzie pętla wykonana zosta- 
20 FOR I = 1 TOJ nie 10 razy. Wartość końcowa zmiennej 
30 PRINT I sterującej jest obliczana zawsze przed 
40 NEXT I obliczeniem wartości początkowej. 

RUN 

123456789 10 

OK 

Przykład 4. 

10 FOR I=1 TO 20 - tym programie wystąpi błąd "NEXT bez 
20 IF I=1O GOTO 100 FOR*. Dla każdej instrukcji FOR może 
30 NEXT wystąpić tylko jedna instrukcja NEXT. 
40 GOTO 110 

100 NEXT 

110 END 


64 7110.5011-01 35—0 (87.05) 


4.6. READ <lista zmiennycho> 


Instrukcja ta służy do wczytywania danych z instrukcji DATA 

1 podstawiania ich do wyspecyfikowanych zmiennych. Instrukcja 
READ musi występować razem z instrukcją DATA. Każdej zmiennej 
w instrukcji READ odpowiada jedna stała z instrukcji DATA. 
<lista zmiennych> może zawierać zmienne numeryczne lub 
alfanumeryczne. Typy danych muszą być zgodne z typami 
odpowiadających im zmiennych. W przeciwnym wypadku wystąpi 
błąd *Błąd składniowy w linii...*. Pojedyńcza instrukcja READ 
może wczytywać dane z jednej lub kilku instrukcji DATA (będą 
one wczytywane w kolejności). 

Kilka instrukcji READ może wczytywać dane z jednej instrukcji 
DATA. Jeżeli liczba zmiennych na <liście zmiennych> jest 
większa od liczby danych zapisanych w jednej ćlub kilku) 
instrukcji DATA, to drukowany jest komunikat "Brak danych w 
linii...*. Jeżeli liczba zmiennych w instrukcji READ jest 
mniejsza niż liczba danych w instrukcjach DATA, kolejna 
instrukcja READ rozpocznie wczytywanie danych od pierwszej, 
nie wczytanej przez poprzednią instrukcję READ danej. Nie 
wczytane przez ostatnią instrukcję READ dane są ignorowane 
/patrz DATA i RESTORE/. 


Przykład 1. 


80 FOR I = 1 TO 10 

90 READ ACI) 

100 NEXT I 

110 DATA 3.08,5.19,3.12,3.98,4.24 
120 DATA 5.08,5.55,4.00,3.16,3.37 
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Ten fragment programu wczytuje przy pomocy instrukcji READ 
wartości z instrukcji DATA do tablicy A. Po wykonaniu tego 
fragmentu programu wartość A(1> będzie wynosiła 3.08 itd. 


Przykład 2. 


10 PRINT " miasto *;* woj "*;* kod * 
20 READ C$,D$,E$ 

30 DATA " OŁAWA *”,* WROCŁ *,"* 50351 * 
40 PRINT C$;D$;E$ 


OK 
RUN 
miasto woj kod 
OŁAWA WROGŁ 50351 
OK 


Program ten wczytuje przy pomocy instrukcji READ dane 
numeryczne i alfanumeryczne umieszczone w instrukcji DATA w 
linii 30. 
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4.7. RESTORE [<numer linii>] 


Instrukcja ta umożliwia ponowne wczytywanie danych przez 
instrukcję READ począwszy od instrukcji DATA o podanym 
numerze. 

Po wykonaniu instrukcji RESTORE, następna instrukcja READ 
powoduje wczytywanie pierwszej danej z pierwszej w programie 
instrukcji DATA. Jeżeli <numer linii> jest podany, następna 
instrukcja RBAD powoduje wczytywanie pierwszej danej z 


instrukcji DATA o podanym numerze. 
Przykład: 

10 READ A,B,C 

20 RESTORE 


30 READ D,E,F 
40 DATA 57,68,79 
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4.8. RANDOMIZE (<wyrażenie>] 


Użycie tej instrukcji zapewnia możliwość generowania różnych 
ciągów liczb pseudolosowych. 
Jeżeli brak jest parametru <ćwyrażenie>, interpreter języka 
BASIC zawiesza wykonanie programu i prosi o wartość parametru 
drukując 

Parametr RANDOMIZE (-32768 do 32767) ? 
przed wykonaniem instrukcji RANDOMIZE. 
Jeżeli generator liczb losowych nie zostanie przestawiony, 
funkcja RND powoduje generację tego samego ciągu liczb 
pseudolosowych za każdym razem, gdy program jest wykonywany, 
należy umieścić instrukcję RANDOMIZE na początku programu i za 
każdym razem zmienić parametr <wyrażenie>. 


Przykład: 


10 RANDOMIZE 

20 FOR I = 1 TO 5 

30 PRINT RND; 

40 NEXT I 

RUN 

Parametr RANDOMIZE (-32768 +32767) ? 3 
(użytkownik wprowadza z klawiatury cyfrę 3) 
„88598 .484668 .586328 .119426 .709225 

OK 

RUN 

Parametr RANDOMIZE (-32768 +32767)> ? 4 
(użytkownik wprowadza z klawiatury cyfrę 4) 
„803506 .162462 .929364 .292443 .322921 

OK 
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4.9. RND ([ (X) 


Funkcja ta wyznacza liczbę pseudolosową z przedziału (0, 1). 
Każde uruchomienie programu powoduje wygenerowanie tego samego 
ciągu liczb o ile generator liczb losowych nie jest 
inicjalizowany za pomocą instrukcji RANDOMIZE. 

Znaczenie parametru X jest następujące: 

X<0 rozpoczyna tę samą sekwencję liczb dla dowolnego X; 

X=0 powoduje powtórzenie ostatnio wygenerowanej liczby; 

X>0 lub brak X powoduje wygenerowanie kolejnej liczby 


z sekwencji. 


Przykład: 


10 FOR I = 1 TOS 

20 PRINT INT(RND 100); 
30 NEXT 

RUN 

24 30 31 51 5 

OK 
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4.10. ZMIENNE ERR i ERL 


Jeżeli w trakcie wykonywania programu wystąpi błąd, zmienna 
ERR zawiera odpowiadający mu kod błędu a zmienna ERL zawiera 
numer linii, w której błąd ten został stwierdzony. 
Zmienne ERR i ERL są zwykle używane w instrukcji IF... THEN. 
Jeżeli błąd wystąpił w instrukcji wykonywalnej w trybie 
natychmiastowym, ERL będzie zawierała 65 535. Do sprawdzenia 
czy zaszła ta sytuacja należy stosować instukcję 
IF 65 533 = ERL THEN ... 
W innych przypadkach należy stosować instrukcje postaci: 

IF ERR =<kod błędu>THEN... 

IF ERL =<numer l1inii>THEN... 


Gdy nuner linii nie występuje po prawej stronie znaku relacji 
to nie może być on zmieniony przez instrukcję RENUM. 

Ponieważ zaienne ERR i ERL są zmiennymi zastrzeżonymi nie nogą 
one wystąpić po lewej stronie znaku również w instrukcji 
podstawienia LET. 
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4.11. ERROR <wyrażenie całkowite> 


Instrukcja ta może służyć do: 
10 Symulacji wystąpienia typowego błędu w języku BASIC. 
20 Zdefiniowania kodu błędu przez użytkownika. 


Wartość <wyrażenia całkowitego> musi mieścić się w przedziale 
(0,255. Gdy jest ona równa kodowi błędu używanemu przez 
interpreter języka BASIC, instrukcja ERROR będzie symulowała 
wystąpienie tego błędu i spowoduje wydrukowanie odpowiedniego 
komunikatu (patrz przykład 1>. Do zdefiniowanego swojego 
własnego kodu błędu należy użyć wartości większej niż kody 
błędów stosowane przez interpreter języka BASIC. (Zaleca się 
stosowanie największych możliwych wartości w celu uniknięcia 
zmian w programach. W przypadku rozszerzenia języka BASIC O 
nowe standardowe kody błędów). 

Zdefiniowane przez użytkownika kody błędów traktowane Są w 
czasie wykonywania programu tak samo jak standardowe. 

(patrz przykład 2). 

Gdy instrukcja ERROR specyfikuje kod, dla którego nie 
przewidziano specjalnego komunikatu, BASIC powoduje 
wyświetlenie *Nieznany błąd". 

Wykonanie instrukcji ERROR, dla której nie przewidziano żadnej 
reakcji programu spowoduje wyświetlenie komunikatu i 


przerwanie wykonywania programu. 


Przykład 1. 
LIST 

10 S= 10 

20 T=S 

30 ERROR S + T 
40 END 

OK 

RUN 


za długi łańcuch znaków w linii 30 
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lub w trybie natychmiastowym 


OK 


ERROR 15 


Za długi łańcuch znaków w linii ... 


OK 


Przykład 2. 


110 
120 
130 


400 
410 


72 


(wprowadzone z klawiatury) 


ON ERROR GOTO 400 
INPUT "JAKA WARTOŚC B"; B 
IF B>5000 THEN ERROR 210 


IF ERR 
IF ERL 


=210 THEN PRINT "*WARTOSC>5000* 


=130 THEN RESUME 120 


e 


wyświetlone na monitorze) 
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4.12. ON ERROR GOTO <numer linii> 


Instrukcja ta umożliwia programowe śledzenie błędów. Podaje 
ona pierwszą linię podprogramu napisanego przez użytkownika a 
służącego do obsługi błędów. 

Jeżeli zostanie wykryty błąd śtakże syntaktyczny), to 
spowoduje to skok do wyspecyfikowanego podprogramu 
zbsługującego błędy. Jeżeli nie występuje parametr <numer 
linii>, to jest to sygnalizowane jako błąd "Brak linii 
programu w linii ...*. 

Rezygnacja z programowegó śledzenia błędów, odbywa się przez 
zastosowanie instrukcji w postaci ON ERROR GOTO 0. Następne 
błędy będą powodowały wyświetlenie standardowego komunikatu o 
błędzie i przerwanie wykonania programu. 

Jeżeli instrukcja ON ERROR GOTO 0 wystąpi w podprogramie 
obsługującym błędy to działanie programu zostanie przerwane, 
wyświetlony zostanie komunikat o wystąpieniu błędu, który 
spowodował wywołanie tego podprogramu. 

Zaleca się użycie ON ERROR GOTO 0 w każdym podprogranmie 
obsługującym błędy w przypadku, gdy wystąpi błąd, dla którego 


nie przewidziano specjalnej reakcji programu. 

UWAGA: 

Jeżeli pojawi się błąd w trakcie wykonania podprogramu 
obsługującego błąd, który wystąpił wcześniej, wykonanie 
programu zostaje zawieszone oraz zostaje wyświetlony komunikat 
o błędzie. Programowe śledzenie błędu nie występuje wewnątrz 
programu obsługującego błędy. 


Przykład: 


10 ON ERROR GOTO 1000 
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4.13. RESUME 
RESUME 0 
RESUME NEXT 
RESUME <numer linii> 


Instrukcje te służą do wznowienia wykonywania programu 
przerwanego wystąpieniem błędu. 

Ww zależności od tego w jakim punkcie programu ma nastąpić 
wznowienie wykonywania programu używa się jednej z czterech 


form tej instrukcji: 


RESUME lub RESUME O powoduje wznowienie wykonywania 
programu od instrukcji, w której wystąpił błąd. 


RESUME NEXT powoduje wznowienie wykonywania programu od 
instrukcji występującej bezpośrednio po instrukcji, w której 


wystąpił błąd. 


RESUME śnumer linii> powoduje wznowienie wykonywania 


programu od linii o podanym w instrukcji numerze. 

Użycie instrukcji RESUME, gdy program nie został przerwany 
wystąpieniem błędu, powoduje wyświetlenie informacji: 
*Błąd RESUME*. 


Przykład: 


10 ON ERROR GOTO 900 


900 IF CERR = 230> AND CERL = 900> THEN PRINT "SPROBUJ JESZCZE 
RAZ 
910 RESUME 80 
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4.14. WHILE <ćwyrażenie> 


[<sekwencja instrukcji>] 


WEND 
Instrukcja ta służy do powtarzania sekwencji instrukcji 
umieszczonych w pętli tak długo, jak długo podany warunek 
(śwyrażenie>> jest spełniony. Jeżeli wartość <wyrażenia> nie 
jest równa O śtzn. ma wartość logiczną *prawda")>, wykonywana 
jest sekwencja instrukcji aż do napotkania instrukcji WEND. 
Wtedy następuje powrót do instrukcji WHILE i ponownie 
sprawdzana jest wartość <śwyrażenia>. Jeżeli warunek nadal jest 
spełniony, proces jest powtarzany. Jeżeli warunek nie jest 
spełniony, wykonywanie programu rozpoczyna się od instrukcji 
występującej bezpośrednio po instrukcji WEND. 
W każdej pętli zrealizowanej za pomocą instrukcji WHILE/WEND 
może występować dowolnie dużo pętli zrealizowanych przy pomocy 
tych instrukcji (w WHILE/WEND nie jest ograniczony poziom 
zagłębienia pętli>. Każda instrukcja WĘND odpowiada ostatniej 
instrukcji WHILE. Brak instrukcji WEND powoduje wystąpienie 
błędu "WHILE bez WEND", brak instrukcji WHILE powoduje 
wystąpienie błędu "WEND bez WHILE. 


Przykład: 


100 FLIPS = 1'DZYAŁANIE W PĘTLI DOPOKI SPEŁNIONY JEST 


WARUNEK FLIPS=1 
110 WHILE FLIPS 


115 FLIPS = O 

120 FOR. = 1 TO J-1 

130 IF A$CI)> A$CI+1)> THEN 

135 SWAP A$(CT>, AS$CT+1)>: FLIPS = 1 
140 NEXT I 

150 WEND 
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4.15. FRECO) 
FRE (X$) 


Argument tej funkcji jest argumentem biernym (tzn. nie ma 
wpływu na wartość funkcji?>. 

Funkcja FRE oblicza liczbę wolnych bajtów w pamięci nie 
zajętych przez BASIC. 


Przykład: 


PRINT FRE(O) 


22524 

OK 

PRINT FRE(C "X" ), FRECX$8) 
22524 22524 
OK 
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4.16. STOP 


Instrukcja ta służy do zawieszenia wykonywania programu 
dowolnym miejscu programu i powoduje powrót do poziomu 
instrukcji sterujących. Jeśli instrukcja STOP zostanie 
wykonana, wyświetlana jest następująca informacja: 
Przerwanie w linii 
OK 


W przeciwieństwie do instrukcji END instrukcja STOP nie 
plików. 

Wznowienie wykonywania programu powoduje instrukcja CONT 
(patrz CONT). 


Przykład: 


10 INPUT A,B,C 
20 K = A'2*5.3:L = B'3 /.26 
30 STOP 
40 M = C*K + 100 : PRINT M 
RUN 
? 1, 2, 38 
Przerwanie w linii 30 
OK 
PRINT L 
30. 7692 
OK 
CONT 
115.9 
OK 
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zamyka 
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4.17. SWAP<zmienna>, ćśzmienna> 


Instrukcja SWAP służy do wymiany wartości dwu zmiennych. 
Parametrami instrukcji SWAP mogą być zmienne dowolnego, lecz 
jednakowego typu (całkowite, pojedynczej precyzji, podwójnej 
precyzji, zmienne alfanumeryczne)”. Jeżeli zmienne nie są tego 


samego typu, występuje błąd "Błąd typów w linii ...*. 


Przykład: 


LIST 

10 A$ = " DWA * : B$ = " PLUS " : C$ = ” JEDEN " 
20 PRINT A$;C$;B$ 

30 SWAP A$,B$ 

40 PRINT A$8;C$;B$ 

RUN 

OK 

DWA PLUS JEDEN 

LEDEN PLUS DWA 

OK 
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4.18. END 


Instrukcja END przerywa wykonanie programu oraz zamyka 
wszystkie pliki danych. Interpreter języka BASIC powraca do 
poziomu instrukcji sterujących (OK). 

Instruxcja END może być umieszczona w dowolnym miejscu 
programu. 

W przeciwieństwie do instrukcji STOP, END nie powoduje 
wyświetlenia komunikatu "Przerwanie w linii " 
Umieszczenie instrukcji END na końcu programu nie jest 


konieczne. 


Przykład: 


520 IF K = 100 THEN END ELSE GOTO 20 
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4.19. USRl(<cyfra>] (X) 


Instrukcja ta wywołuje podprogram użytkownika w języku 
asemblera z argumentem X. <cyfra> jest z zakresu od O© do 9 1 
odpowiada cyfrze użytej w instrukcji DEF USR specyfikującej 
początek podprogramu. 

Pominięcie parametru <cyfra> jest równoważne instrukcji USRO. 


Przykład: 
40 B = T£SINCY) 
50 C = USR(B/2) 


60 D = USR(B/3) 
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4.20. REM <uwaga> 


Instrukcja ta umożliwia umieszczenie w programie komentarzy. 
Instrukcje REM są instrukcjami biernymi - są pomijane w 
trakcie wykonywania programu. 

Do instrukcji REM mogą być wykonywane skoki za pomocą 
instrukcji GOTO 1 GOSUB, a wykonanie programu będzie 
kontynuowane od pierwszej instrukcji czynnej występującej po 
instrukcji REM. 

Zamiast korzystania z instrukcji REM, można komentarz umieścić 


na końcu linii , poprzedzając go apostrofem. 


Przykład: 


120 REM OPIS INSTRUKCJ I 


130 FOR I = 1 TO 20 
140 SUM = SUM + VCCI) 


lub 
120 FOR I 1 TO 20 "OPIS INSTRUKCJI 
130 SUM = SUM + VCI)> 
140 NEXT I 
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5. FUNKCJE ARYTMETYCZNE 
5.1. ABSCX) 


Funkcja ta oblicza wartość bezwzględną wyrażenia X. 


Przykład: 
PRINT ABSC7* (-5)) 


35 
OK 
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5.2. ATNC(X) 


Funcja ta oblicza arcus tangens X wyrażonego w radianach. 
Wartość funkcji mieści się w zakresie od -TN/2 do I/2. 
Parametrem funkcji może być dowolne wyrażenie numeryczne. 
Obliczanie wartości funkcji ATN przeprowadzane jest zawsze z 


pojedynczą precyzją. 


Przykład: 


10 INPUT X 
20 PRINT ATNCX) 
RUN 
? 8 
1.24905 
OK 
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Funkcja ta podaje wartość sinusa dla X wyrażonego w radianach. 


Obliczenie wartości funkcji przebiega z pojedynczą precyzją. 


Przykład: 


PRINT SIN(1.5) 


997495 
OK 
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5.4. COSCX) 


Funkcja ta oblicza cosinus X. Parametr X wzrażony jest w 
radianach. Obliczenie COSCX> realizowane jest z pojedynczą 


precyzją. 


Przykład: 


10 X = 24CO0S(.4) 
20 PRINT X 
RUN 
1.84212 
OK 


7410.5011-01 35—0 (87.05) 


85 


5.5. TANCX? 


Funkcja ta oblicza tangens argumentu wzrażonego w radianach. 
Obliczana jest z pojedynczą precyzją. Jeżeli wartość TANC(X) 
przekracza dopuszczalny zakres, wyświetlany jest komunikat o 
błędzie "Przepełnienie" — jako rezultat obliczeń podawany jest 
maszynowy odpowiednik nieskończoności z odpowiednim znakiem i 


działanie programu jest kontynuowane. 


Przykład: 


10Z=Q+* TANCX>/2 
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5.6. LOGCX) 

Funkcja ta oblicza logarytm z liczby X. X musi być większe od 
zera. 

Przkład: 

PRINT LOG(45/7) 


1.86075 
OK 
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5.7. EXPCX) 


Funkcja ta oblicza e do potęgi X. X musi być mniejsze lub 
równe 87.3365. Jeżeli wartość EXP przekracza dopuszczalny 
zakres wyświetlany jest komunikat o błędzie "Przepełnienie" - 
jako rezultat obliczeń podawany jest maszynowy odpowiednik 
nieskończoności z odpowiednim znakiem i działanie programu 


jest kontynuowane. 


Przykład: 


10X=5 

20 PRINT EXP(X-1) 
RUN 

54.5982 

OK 


88 7110.5011-—01 36—0 (87.06) 


5.8. SQR(X) 


Funkcja ta oblicza pierwiastek kwadratowy z liczby X. 


X musi być >= 0. 


Przykład: 


10 FOR X = O TO 25 STEP S$ 
20 PRINT X,SQR(X) 


RUN 

10 3,16228 
15 3,87208 
20 4,47214 
25 5 

OK 
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5.9. INTCX) 


Funkcja ta przyjmuje wartość największej 
<=YX. 


Przykład: 


PRINT INT(99.89) 
99 

OK 

PRINT INT(-12.11) 
-13 

OK 


Zobacz także funkcje FIX i CINT. 


liczby całkowitej 
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5.10. FIXCX? 


Funkcja FIX oblicza część całkowitą wyrażenia X poprzez 
obcięcie części ułamkowej. 
FIXCX> jest równoważne SGN(X> * INTCABSCX>>. Podstawowa 


różnica pomiędzy funkcjami FIX i INT polega na tym, że FIX nie 


przyjmuje wartości najbliższej liczby ujemnej dla ujemnego X. 


Przykład: 


PRINT FIX (58.75) 
58 
OK 
PRINT FIX(-58.75) 
-58 
OK 
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5.11. SGNCX? 


Wartość funkcji zależy od X w następujący sposób: 


dla X > 0 SGN(X> = 1 

dla X =0 SGN(X = O 

dla X < 0 SGH (X = 
Przykład: 


ON SGN(X> + 2 GOTO 100, 200, 300 


Skok do linii 100 następuje dla X<0, do linii 200 dla X=0, do 
linii 300 gdy X>O. 
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5.12. CINTCX) 


Funkcja ta dokonuje konwersji wartości wyrażenia X do wartości 
typu całkowitego poprzez zaokrąglenie części ułamkowej. Gdy X 
nie mieści się w zakresie od — 32 768 do 32 765 pojawi się 
błąd *"Przepełnienie". 


Przykład: 
PRINT CINTC45.67) 


46 
OK 
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5.13. CSNGCX) 


Funkcja ta realizuje konwersję typu wartości wyrażenia X do 


pojedynczej precyzji. 


Przykład: 


10 A 4 = 975.3421 % 
20 PRINT A%; CSNGCA %) 
RUN 

975.3421 975.342 

OK 
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0.14. CDBLCX) 


Funkcja CDBL realizuje konwersję typu wyrażenia X do podwójnej 
precyzji. 


Przykład: 


10 A = 453.67 

20 PRINT A; CDBLCA) 

RUN 

454.67 454.6700134277344 
OK 
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5.15. HEX8$ CX) 


Funkcja ta przedstawia w postaci znakowej heksadecymalny kod 


dziesiętnego argunentu. 


X jest zaokrąglone do liczby całkowitej przed obliczeniem 


HEX$ (X>. Gdzie X: -327658<X<65535. 


Przykład: 


10 INPUTX 
20 A$ = HEX$C(X) 
30 PRINT X "DZIESIĘTNIE TO "A$" SZESNASTKOWO" 
RUN 
? 32 
32 DZIESIĘTNIE TO 20 SZESNASTKOWO 
OK 


Zobacz też funkcję OCT8 realizującą konwersję do postaci 


oktalnej. 
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5.16. OCTS$CX) 


Funkcja ta przedstawia w postaci znakowej oktalny kod 
dziesiętnego argumentu. 

X jest zaokrąglone do liczby całkowitej przed obliczeniem 
OCT$(X>. Gdzie X: -32768<X<65535. 


Frzykład: 


PRINT OCT$5 (24) 


30 
CK 


Zobacz także funkcję HEX. 
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6. INSTRUKCJE I FUNKCJE ZNAKOWE 


6.1. LEFT$CX$, I) 


Funkcja ta przybiera wartość ciągu składającego się z I znaków 
branych z X$ poczynając od lewej strony. I musi mieścić się 

w zakresie od O do 255. Jeżeli I jest większe od LEN(X8)> jako 
wartość funkcji zwracany jest ciąg wejściowy X$. Gdy I=0 
funkcja przybiera wartość ciągu pustego ( o zerowej długości). 


Przykład: 

10 A$ = "BASIC - 84" 
20 B$ = LEFT$(A$,5) 
30 PRINT B$ 


BASIC 
OK 


Zobacz także funkcje MID$ i RIGHTS. 
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6.2. RIGHI$ (X$,I) 


Funkcja ta przybiera wartość ciągu składającego się z I 
ostatnich znaków z X8. 

Gdy I LENC(X8> to wartością funkcji jest X$. 

Gdy I = © to wartością funkcji jest ciąg pusty (zerowej 
długości). 


Przykład: 


10 A8= "DYSK BASIC-84* 
20 PRINT RIGHT$(A$,8) 
RUN 

BAS1C-84 

OK 
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6.3. Instrukcja MID$ 


MID$ (wyrażenie alfanumeryczne 1>,nl[,m)> 
=ćwyrażenie alfanumeryczne 2> 


gdzie: n i m są wyrażeniami typu całkowitego. 


Instukcja ta powoduje zastąpienie części wyrażenia alfanume— 
rycznego drugim wyrażeniem alfanumerycznym. Znaki w śwyraże- 
niu alfanumerycznym 1> zaczynając od pozycji n są zastępowane 
przez znaki śwyrażenia alfanumerycznego 2>. Parametr opcjo- 
nalny m określa liczbę znaków śwyrażenia alfanumerycznego 2, 
które zostaną użyte przy zamianie. Jezeli parametr m jest 
pominięty, całe <ćwyrażenie alfanumeryczne 2> jest użyte przy 
zamianie. Jednakże, bez względu na to, czy parametr m wystę- 
puje w instrukcji czy nie, liczba znaków śwyrażenia alfanume— 
rycznego 2> użytych przy zamianie nie może przekroczyć liczby 


znaków wyrażenia alfanumerycznego 1. 
Przykład: 

10 A$="TABULOGRAM T-155" 

20 MID$C(A$,152="$A" 

30 PRINT 4$ 


RUN 
TABULUGRAM T-18A 


Zobacz także funkcję MIDS. 
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6.3.1. Funkcja MIDS$ 


MID$(X$,I,J) 


X$ jest wyrażeniem alfanumerycznym. 

Wartością tej funkcji staje się ciąg złożony z J znaków bra— 
nych z X$8 począwszy od I -— tego znaku. I oraz J muszą być z 
zakresu od 0 do 255. Gdy J nie występuje lub gdy w X% jest 
mniej niż J-1 znaków na prawo od I - tego znaku wartością 
funkcji staje się ciąg złożony z I - tego znaku i wszystkich 
pozostałych znaków leżących na prawo od niego. Gdy I>LEN(X$) 
wartością MIDS$ jest ciąg pusty. 


Przykład: 


10 A$="BRAK* 

20 B$="WPROWADZENIE INFORMACJI Z KARTOTEKI" 
30 PRINT A$;MID$(B$, 14, 10) 

OK 

RUN 

BRAK INFORMACJI 

OK 


Zobcz także funkcje LEFT$, RIGHTS. 
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6.4. ASCCXY8) 


Funkcja ASC podaje wartość numeryczną, która stanowi kod 
dziesiętny pierwszego znaku wyrażenia alfanumerycznego X$ 

w standarcie ASCII. Gdy X$ jest znakiem pustym ("* "'> pojawia 
się błąd "Błędne wywołanie funkcji". 


Przykład: 

10 X8 = "TEST" 
20 PRINT ASCCX$) 
RUN 

84 


OK 


Liczba 84 stanowi kod znaku T w/g ASCII. 
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6.5. CHR$CI) 


Funkcja CHR$ podaje znak alfanumeryczny, którego kod dzie— 


siętny w/g ASCII wynosi I. Funkcja CHR$ jest zwykle używana do 


przesyłania na monitor lub drukarkę znaków specjalnych. Na 
przykład znak BELL przesłany jako CHR$(7) moze poprzedzić 
informację o błędzie, a wyrażenie CHR$(27)>+CHR$ (69 może 


służyć do czyszczenia ekranu monitora po ustawieniu kursora na 


początku pierwszej linii sekwencją kodów CHR$ (27)>+CHR$ (72). 


Przykład 1: 
PRINT CHR$ (66) 
B 


OK 


Liczba 66 stanowi dziesiętny odpowiednik kodu znaku B w ASCII 
(patrz dodatek B, C, D). 


Przykład 2: Sekwencja programu czyści ekran monitora 


100 PRINT CHR$ (27>+CHR$ (72) 
110 PRINT CHR$ (27)+CHR$ (69) 
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Przykład 3: 


200 PRINT CHR$ (14) —- ustawienie monitora w trybie 
MODE O 
210 PRINT *ELWRO 800 JUNIOR"  - wyświetlenie na monitorze 
| napisu 
220 PRINT CHR$ (20) — powrót do trybu MODE 1 
monitora 


Przykład 4: Wyświetlenie tekstu (inwersja) 


2000 PRINT CHR$(27>+CHR$(112> -— ustawienie inwersji 
2010 PRINT "ELWRO" - wyświetlenie napisu na monitorze 
2020 PRINT CHR$(27)+CHR$ (113) - kasowanie inwersji 
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6.6. LENCX$) 


Funkcja ta podaje liczbę znaków w X$. 


i znaki nie drukowalne. 


Przykład: 


10 XS="ZESTAW DANYCH" 
20 PRINT LENC(X$) 

13 
OK 
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Liczone są także spacje 


105 


6.7. VALCX$) 


Funkcja ta oblicza wartość numeryczną wyrażenia przedstawio- 
nego w X$% w postaci znakowej. Jeżeli pierwszym znakiem X$ nie 
jest +, -, 8 lub cyfra, VALCX$> = 0. 

Podczas wyliczania pomijane są spacje, znaki tabulacji i znaki 
zmiany linii w X$. 


Przykład: 

10 READ N$,C$,5S$8,Z$ 

20 IF VALCZ$)>< 100000 OR VALCZ$>> 165099 

THEN PRINT Z$ TABC(30> "WARTOŚĆ POZA PRZEDZIAŁEM" 


30 IF VAL(C8>> = 500 AND VALCC$> < = 1000 
TO PRINT C$ TABC30)> "NIEDOPUSZCZALNA WARTOŚĆ" 


Zobacz też funkcję STR$. 
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6.8. STR$CX) 


Funkcja ta dokonuje konwersji wartości wyrażenia X do postaci 


znakowej. 


Przykład: 


5 REM KONWERSJA DO POSTACI ZNAKOWEJ 


10 INPUT "PODAJ KOD*;N 
20 ON LEN (STR$C(N>> GOSUB 30,100,200,300,400 


Zobacz także funkcję VAL. 
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6.9. STRING$CI,J) 


STRING$ (I, X$) 


wartością funkcji staje się ciąg składający się z I znaków. 


Wszystkie te znaki mają kod J w/g ASCII lub są pierwszym 


znakiem z X$. 


Przykład: 


10 X$ = STRING$C(10,45) 


20 PRINT X$ "TABULOGRAM KONTROLNY" X$ 
RJN 
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6.10. INSTR ((I,1] X$, Y$) 


Funkcja ta przyjmuje wartość pozycji, na której w ciągu znaków 
alfanumerycznych X$ występuje po raz pierwszy ciąg znaków Y$. 
Opcjonalny parametr I podaje pozycję, od której rozpoczyna się 
poszukiwanie. 

I musi mieścić się w zakresie od 1 do 255. Gdy I>LEN(X$8> lub 
gdy X$ jest ciągiem pustym lub gdy Y$ nie może być określone, 
funkcja ta przybiera wartość 0. Jeżeli Y$ jest ciągiem pustym 
INSTR przybiera wartość I lub 1. Parametrami X$ i Y$ mogą być 
zmienne łańcuchowe, wyrażenie łańcuchowe lub ciągi znaków 


alfanumerycznych. 


Przykład: 


10 X$ " ABCDEB" 
20 Y$ = "B" 
30 PRINT INSTRCX$S,Y$)>; INSTR(4,X$,Y$) 
RUN 
2 6 
OK 
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6.11. INKEYS$ 


Funkcja ta przyjmuje wartość jednego znaku alfanumerycznego 
wprowadzonego z konsoli lub znaku pustego, gdy Żaden klawisz 
konsoli nie jest wciśnięty w czasie działania funkcji. Znaki 
nie są wyświetlane na monitorze, wszystkie są akceptowane 
przez funkcję z wyjątkiem CTRL - C, który zawiesza wykonanie 
progamu. 


Przykład: 


1000 REM PODPROGRAM WEJŚCIA 

1010 RE$= " " 

1020 FOR I%=1 TO TCZAS% 

1030 A$=INKEY$ : IF LEN (A$>=0 THEN 1060 
1040 IF ASCCA$>=13 THEN WSK%=0 : RETURN 
1050 RE$=RE$ + A$ 

1060 NEXT I% 

1070 WSK%4=1 : RETURN 
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7. INSTRUKCJE I FUNKCJE SPECJALNE 


o 


7.1. CALL śnazwa zmiennej> [ (ćlista argumentów>?>] 


Instrukcja ta służy do wywoływania podprogramu w języku 
asemblera. Gdy występuje znak % wywołany zostaje podprogram 

w asemblera 6502. Instrukcja CALL bez znaku % wywołuje pod- 
program w języku asemblera 280. 

ś nazwa zmiennej > nie może być nazwą tablicy, Zawiera adres, 
który jest punktem startowym podprogramu. 

< nazwa argumentów > zawiera argumenty przenoszone do podprog— 
ramu w języku asemblera. 

Podprogram w języku assemblera 65902 może mieć co najwyżej trzy 
parametry o długości jednego bajtu każdy. Pierwszy /gdy 
występuje/ jest umieszczony w rejestrze X, kolejny w Y. 
Instrukcja CALL generuje taki sam kod wynikowy jak opracowany 
przez firmę MICROSOFT FORTRAN, COBOL i kompilator języka 
BASIC. (patrz dodatek E). 


Przykład: 
110 MYROUT = 8HDOOO 
120 CALL MYROUT 


130 BELL = 68HFF3A 
140 CALL % BELL 
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7.2. POKE (I,J) 


gdzie I i J są wyrdkniami typu całkowitego. 


Instrukcja ta służy do wpisywania bajtu pod wskazany adres 
pamięci. Wartość parametru I podaje adres komórki pamięci do 
której wpisywana jest wartość parametru J. J musi mieścić się 
w zakresie 0-255, I musi mieścić się w zakresie 0-65536. 
Funkcją przeciwną do POKE jest funkcja. PEEK. Parametrem 
funkcji PEEK jest adres komórki pamięci z której zawartość 
bajtu ma być wczytana /przez PEEK/. POKE i PEEK służą do 
efektywnej organizacji przechowywania danych, ładowania 
podprogramów w języku asemblera i przesyłania argumentów oraz 
wyników do/z podprogramów w języku asemblera. (patrz dodatek 
E) 


Przykład: 


„10 POKE 8$HSA00, SHFF. 
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7.3. PEEK (I) 


Funkcja ta przybiera wartość całkowitą z zakresu od O do 255, 
która przedstawia zawartość wyspecyfikowanego przez I bajtu 
pamięci. Parametr I musi mieścić się w zakresie od O do 65536. 
(patrz dodatek E) 


Przykład: 


A = PEEK (C8SHSA00) 


7140.5011-01 35—0 (87.05) 113 


7.4. VARPTR (ćnazwa zmiennej>) 


VARPTR (4<śnumer pliku>) 


1. Jeśli występuje parametr <nazwa zmiennej? funkcja VARPTR 
podaje adres pamięci pierwszego bajtu danej identyfikowanej 
przez śnazwa zmiennej?. 

Przed obliczeniem funkcji parametrowi <nazwa zmiennej> musi 
zostać nadana wartość. W przeciwnym wypadku wystąpi błąd 
"Błędne wywołanie funkcji”. Parametrem może być zmienna 
dowolnego typu /numeryczna, alfanumeryczna, indeksowa/. 
Podany adres będzie liczbą całkowitą z zakresu od 32767 
do — 32768. 

Jeżeli parametr będzie ujemny, należy dodać do niego 65536, 
aby otrzymać właściwą wartość. Funkcja VARPTR jest zwykle 
używana do wyznaczenia adresów zmiennych lub tablic 
wykorzystywanych później w podprogramach w języku asemblera 
W przypadku tablic stosuje się wywołanie funkcji w postaci 
VARPTRCAC(O)>). 

Umożliwia to zlokalizowanie w pamięci najniżej zaadresowa— 


nego elementu tablicy. 


Uwaga: 


Przed wywołaniem funkcji VARPTR dla tablicy, wszystkie 
zmienne proste powinny mieć określone wartości, ponieważ 
adresy tablic zmieniają się, kiedy nowej zmiennej prostej 
nadawana jest wartość. 

2. Jeżeli występuje parametr *<numer pliku>, funkcja VARPTR 
podaje adres początkowy dyskowego bufora WE/WY związanego 
z plikiem wyspecyfikowanym przez <ćnumer pliku?. 
Parametr o danej wartości musi być wcześniej użyty w 
instrukcji OPEN. (patrz dodatek E) 


Przykład: 
100 X = USR(VARPTRCY)>) 
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7.5. OUT CI, J> 


gdzie: I, J są wyrażeniami całkowitymi z przedziału 0-255 


Instrukcja OUT służy do wysyłania do portu oznaczonego parame— 


trem I zawartości bajtu oznaczonego J. 


Przykład: 


10 OUT 254,7 
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7.6. INP (<I>) 


gdzie I jest wyrażeniem całkowitym z przedziału 0-255 


Instrukcja powoduje odczytanie bajtu z portu o numerze I. 


Przykład: 


200 A=INP (254) 
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8. INSTRUKCJE WE/WY. 


8.1. INPUT [;1 [<*tekst">;l<lista zmiennycho> 


INPUT [;1 [<"tekst">,l<lista zmiennych> 


Instrukcja ta służy do wprowadzenia danych podczas wprowa-— 
dzania programu. W trakcie wykonywania instrukcji INPUT dzia- 
łanie programu jest zawieszone. Program oczekuje na 
wprowadzenie danych z klawiatury. 

Jeżeli wytępuje parametr <"tekst"> jest on wyświetlony na 
ekranie. Po parametrze <"tekst"> może występować średnik (;) 
lub przecinek (,». średnik spowoduje wyświetlenie znaku 
zapytania sygnalizującego oczekiwanie na podanie danych po wy- 
świetleniu <"tekstu">. Przecinek spowoduje, że znak zapytania 
nie zostanie wyświetlony. Jeżeli w instrukcji INPUT, 
bezpośrednio po jej nazwie występuje średnik to wciśnięcie 
klawisza carriage return (CR w celu wprowadzenia danych nie 
będzie powodowało wykonania na ekranie monitora sekwencji CR 
(powrót karetki/kursora>. Wprowadzone dane podstawione są 
kolejno do zmiennych występujących na <liście zmiennycho. 
Liczba danych musi się dokładnie zgadzeć z liczba zmiennych na 
liście. Wprowadzone dane należy oddzielać przecinkami. 
Zmiennymi na liście mogą być zmienne numeryczne lub alfanume- 
ryczne /wyłącznie ze zmiennymi indeksowymi/. Typy danych muszą 
odpowiadać typom zmiennych. /Wprowadzone stałe alfanumeryczne 
muszą być w cudzysłowach/. 

Wprowadzenie zbyt dużej lub zbyt malej ilości danych w 
odpowiedzi na instrukcję INPUT, albo też zły typ danej spowo- 
dują wyświetlenie komunikatu. 

żadne podstawienia nie są realizowane dopóki dane nie zostaną 


podane we wvłażciwej postaci. 
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Przykład 1. 


10 INPUT X 

20 PRINT X "TO KWADRAT" Xx2 

30 END 

RUN 

? 5 /napisane przez użytkownika w odpowiedzi na znak 
zapytania/ 

5 TO KWADRAT 25 

OK 


Przykład 2. 


100 PRINT "podaj imie i nazwisko *"; 

110 INPUT A$,B$ 

120 INPUT *ile masz lat ";w 

130 PRINT "podaj adres - kod 1 miejscowość” 
140 INPUT "kod podaj w postaci XX.XXX " ;K,M$ 
150 INPUT "ulica " ;U$ 


RUN 

podaj imie i nazwisko ? JAN, KOWALSKI 

ile masz lat ? 10 

podaj adres - kod 1 miejscowość 

kod podaj w postaci XX.XXX ? 35.444, WROCŁAW 
ulica ? ŚWIERCZEWSKIEGO 
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8.2. INPUT$S (X (,[%] YJ) 


Funkcja ta przyjmuje wartość łańcucha X znaków alfanumerycz- 
nych wprowadzonych z konsoli lub pliku o numerze Y. Jeżeli do 
wprowadzenia znaków używana jest konsola, znaki nie są 
wyswietlane na monitorze 1 wszystkie są akceptowane z 


wyjątkiem CTRL-C, który zawiesza wykonanie programu. 


Przykład 1. 


5 REM WYDRUK PLIKU W KODZIE SZESNASTKOWYM 
10 OPEN "I* , 1, "DANE" 

20 IF EOFC1> THEN 50 

30 PRINT HEX$ (ASCCINPUT$C(1, *%1)2); 

40 GOTO 20 

50 PRINT 

60 END 


Przykład 2. 


100 PRINT "podaj : P to procedura ,S to stop" 
110 X$ = INPUT$(1) 

120 IF X$' = "P" THEN 500 

130 IF X$ = *S*" THEN 700 ELSE 100 
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8.3. LINE INPUT [;1.< "tekst" >;,]l<śzmienna alfanumeryczna> 


Instrukcja ta służy do wczytania całej linii /do 254 znaków/ 
do zmiennej alfanumerycznej, bez użycia ograniczników. 

Ciąg znaków < "tekst" > jest wyświetlony przed wprowadzeniem 
linii. Znak zapytania nie jest drukowany, chyba, że jest on 
częścią tekstu. Wszystkie wczytane znaki,od końca tekstu do 
znaku CR (powrót karetki)>, są przekazywane do zmiennej 
alfanumerycznej. 

Jeżeli bezpośrednio po instrukcji LINE INPUT występuje 
średnik, to znak CR/powrót karetki/ wprowadzony przez użytko- 
wnika na końcu wczytanej linii nie powoduje pojawienia się 
sekwencji powrót karetki/kursora na monitorze. 

Działanie instrukcji LINE INPUT może być przerwane przez wciś- 
nięcie CTRL - C. Interpreter języka BASIC powoduje powrót do 
poziomu instrukcji sterujących i wyświetlenie komunikatu OK. 
Instrukcja CONT wznawia wykonanie programu od instrukcji 

LINE INPUT. 


Przykład: 


Patrz przykład dla LINE INPUT 4% 
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8.4. PRINT (<lista wyrażeń?>) 


Instrukgja ta służy do wyprowadzenia danych na monitor. Jeżeli 
ślista wyrażeń> jest pominięta, wyswietlona jest pusta linia. 
Jeżeli parametr lista wyrażeh występuje w instrukcji, 
wprowadzane Są wartości tych wyrażeń. Wyrażenia na liscie mogą 
być numeryczne i/lub alfanumeryczn= (wyrażenia alfanumeryczne 


musza znajdować aie w cudzysłowach). 
FORMA WYPROWADZANIA DANYCH 


Pozycja każdepo wyprowadzonego znaku jest zdeterminowana przez 
interpunkcje użytą do oddzielania elementów składowych listy. 
BASIC dzieli linię na strefy o szerokości 14 pozycji. Przeci- 
nek na liście wyrażeń powoduje, że następna wartość jest 
drukowana bezpośrednio za ostatnią wartością. 

Pisanie jednej lub więcej spacji pomiędzy wyrażeniami daje 
taki sam efekt jak użycie średnika. Jeżeli przecinek lub 
średnik stanowią zakończenie listy wyrażeń, następna 
instrukcja PRINT powoduje rozpoczęcie wyprowadzania w tej 
samej linii /zgodnie z opisanymi powyżej regułami/. 

Jeżeli lista wyrażeń nie kończy się przecinkiem lub średnikiem 
to następna instrukcja PRINT będzie powodowała wyprowadzenie 
w następnej linii. 

Jeśli wydruk nie mieści się w jednej linii, następuje 
przejście do następnego linii 1 drukowanie jest kontynuowane. 
Po wyświetlonej liczbie zawsze występuje spacja. Liczby 
dodatnie poprzedzone są spacją, zaś liczby ujemne znakien 
minus. 

Liczby pojedynczej precyzji, które mogą być reprezentowane 
przez 6 lub mniej cyfr są wyprowadzone przy użyciu formatu 
swobodnego, w sposób równie dokładny jak wyprowadzenie przy 
użyciu określonego formatu, np.: 10'/-6/ jest wyprowadzone 
jako .000001, 10/-7/ jest wyprowadzone jako 1E-7. Liczby 


podwójnej precyzji reprezentowane przez 16 lub mniej cyfr są 
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również wyprowadzone przy użyciu formatu swobodnego, który ma 
nie mniejszą dokładność niż określony format, np.: 1D-16 jest 
wyprowadzone jako 00000000000000001, a 1D-17 jest wyprowadzone 
jako 1D-17. W instrukcji PRINT zamiast słowa PRINT można użyć 


znaku zapytania. 


Przykłady: 


1) 10X=5 
20 PRINT X +5, X -5, X -5, X 5 
30 END 
RUN 
10 0  -25 3125 
OK 


2> LIST 
10 INPUT X 
20 PRINT X "KWADRAT= " ;X2Z; *” I"; 
30 PRINT X *"*SZBŚCIAN="" ;X'3 
40 PRINT 
50 GOTO 10 
OK 
RUN 
? 9 
9 KWADRAT= 89 I 9 SZEŚCIAN= 729 
?21 
21 KWADRAT= 441 I 21 SZEŚCIAN= 9261 


? 


W tym przykładzie średnik na końcu linii 20 powoduje, że obie 
instrukcje PRINT zostaną wyprowadzone w tej samej linii a 
linia 40 powoduje wyświetlenie pustej linii przed następnym 


zapytaniem o dane. 
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3 10 FOR X 
20 J =J 
30K=K 

402 J ; 

50 NEXT X 

OK 

RUN 

5 10 10 20 15 30 20 40 25 50 

OK 


1 TOS 


R + + 
M 
© 


W tym przykładzie średnik w instrukcji PRINT powoduje, że 
każda warość będzie wyprowadzona natychmiast po poprzedniej 
/nie należy zapominać, że po liczbach występuje spacja 1, że 
liczby dodatnie poprzedzone są spacją/. W linii 40 znak 
zapytania jest użyty w zamian za słowo PRINT, w pamięci 


operacyjnej umieszczone jest w linii programu słowo PRINT. 
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8.5. PRINT USING <wyrażenie alfanumeryczne> ; <lista wyrażeń> 


Instrukcja ta umożliwia wyświetlenie znaków i liczb przy 


użyciu wyspecyfikowanego formatu. 


<lista wyrażeń> składa się z wyrażeń numerycznych i alfanume— 


rycznych, które mają być wyświetlenie, a które są oddzielone 


średnikami. 


śwyrażenie alfanumeryczne> jest ciągiem znaków alfanumerycz—- 


nych /zmienną alfanumeryczną/ składającym się ze znaków, które 


są opisami pól alfanumerycznych. 


Te opisy pól /patrz poniżej/ determinują pola i formy wyprowa— 


dzanych znaków i liczb. 


POLA ALFANUMERYCZNE 


Jeżeli instrunkcja PRINT USING jest użyta do wyświetlania 
znaków, jeden z trzech opisów pól może być użyty do określenia 


formatu pola alfanumerycznego: 


"X n spacjiN" 
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określa, że tylko pierwszy znak w danym 
wyrażeniu alfanumerycznym może być wyświetlony. 


określa, że 2+n znaków z wyrażenia alfanumerycz- 
nego mogą być wyświetlone. Jeżeli znaki są napi- 
sane bez żadnej spacji — trzy znaki zostaną 
wyświetlone itd. Jeżeli wyrażenie alfanumeryczne 
jest dłuższe niż pole, to ta część znaków, która 
nie mieści się w polu będzie ignorowana. Jeżeli 
pole jest dłuższe niż wyrażenie alfanumeryczne, 
wyrażenie to będzie lewostronne dosunięte do 
początku pola i uzupełnione z prawej strony 


spacjami. 
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Przykład: 


10 A$ = "ALPHA" : B$ = "TRONIC" 
30 PRINT USING *!" ; A$ ; B$ 
40 PRINT USING "AN NN"; A$ ; B$ 
50 PRINT USING "A N* ; A$ ; B$ ; "!!" 
RUN 
T 
ALPHATRONIC 
ALPHATRONIC !! 
OK 


" z" Określa pole alfanumeryczne zmiennej. Jeżeli 
pole jest wyspecyfikowane znakiem "8", wyrażenie 
alfanumeryczne jest wyprowadzone dokładnie w 


takiej samej formie, jak zostało wprowadzone. 


Przykład: 


10 A$ = "ALPHA" : B$ = "TRONIC" 
20 PRINT USING "!" ; A$ 

30 PRINT USING "8" ; B$ 

RUN 

ATRONIC 

OK 


POLA NUMERYCZNE 
Jeżeli instrukcja PRINT USING jest używana do wyświetlania 
liczb, do określenia formatu pola numerycznego można użyć 
następujących znaków specjalnych: 

łk znak ten jest używany jako reprezentacja pozycji każdej 


cyfry. Pozycje cyfr są zawsze wypełnione. Jeśli liczba, 
która ma być wydrukowana ma mniej cyfr niż wyspecyfiko- 
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wano pozycji, zostaną one prawostronnie dosunięte do 
końca pola, /pozostałe pozycje zostaną wypełnione 
spacjami/. 

Kropka dziesiętna może zostać wprowadzona na każdą pozy— 
cję pola. Jeśli format określa, że cyfra musi zawsze po- 
przedzać kropkę dziesiętną, będzie ona zawsze 
wyświetlana /również O jeśli jest to konieczne/ 


Jeśli jest to konieczne, cyfry są zaokrąglone. 


PRINT USING "*w4.Hk" ;.T8 


0.78 
PRINT USING "F4h.*W4" ; 987. 654 
987.65 


PRINT USING "YFk.*łH* "; 10.2, 5.3, 66.789,.234 
10.20 5. 30 66.79 0.23 


Wostatnim przykładzie wprowadzono trzy spacje na końcu 


formatu by odzielić od siebie wyświetlane wartości. 


Znak plusa na początku lub na końcu formatu spowoduje 
wyświetlanie znaku liczby /plus lub minus/ na początku 
lub końcu liczby. 


Znak minusa na końcu formatu spowoduje, że liczby ujemne 


będą wyświetlane ze znakiem minusa na końcu. 


PRINT USING "+śż.fł  "; - 68.95,2.4,55.6,-.9 
- 68.95 + 2.40 + 55.60  -0.90 i 

PRINT USING "44.*kh-  "; - 68.95,22.449,-7.01 
68.95 — 22.45 7.01 - 


Dwie gwiazdki na początku formatu powodują, że spacje 
przed liczbą w polu numerycznym zostaną wypełnione gwia— 


zdkami. Znak * określa również pozycję dla dwóch cyfr. 
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PRINT. USING "s*4.*% *, 12.39, -— 0.9,765.1 
*12.4 *-0.9 765.1 


$$ Znak ten powoduje wyświetlanie znaku $$ bezpośrednio 
przed liczbą. Znak $$ określa również pozycje dla 
dwóch cyfr, z których jedna jest zajmowana przez znak %. 
Ze znakiem $8 nie może być użyty format eksponencjalny. 
Liczby ujemne mogą być drukowane jedynie w przypadku, 


gdy znak minus umieszczony jest na końcu. 


PRINT USING "$SSHH4. 44"; 456.78 
5456. 78 

+*$ Znak ten umieszczony na początku formatu daje połączony 
efekt powyższych dwóch symboli. Spacje przed liczbą 
zostaną wypełnione gwiazdkami, a bezpośrednio przed 
liczbą zostanie wydrukowany znak $. Znak $ określa 
ponadto pozycje dla trzech cyfr, z których jedna zosta- 


nie zajęta przez znak $. 


PRINT USING "+*+$S*44.4f4"; 2.34 
+:*+S2. 34 


Przecinek bezpośrednio poprzedzający kropkę dziesiętną 
w formacie, powoduje umieszczenie przecinka po każdych 
trzech cyfrach poprzedzających kropkę dziesiętną licząc 
od kropki dziesiętnej. Przecinek umieszczony na końcu 
formatu jest traktowany jako część wyrażenia. Przecinek 
zapewnia jedną dodatkową pozycję dla cyfry. Przecinek 
użyty w przypadku formatu eksponencjalnego nie daje żŻad- 


nego efektu. 


PRINT USING "*kYk, .4K*;1234.5 
1,234.5 

PRINT USING "w*w*k. 4%," ;1234.5 
1234.50, 
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Znak ”"”' może być umieszczony po znakach reprezentują— 
cych pozycję cyfry, a służy do określenia formatu 
eksponencjalnego. 

Znak "©" zapewnia miejsce na wyświetlenie E + XX. 
Pozycja każdej kropki dziesiętnej może być wyspecyfiko- 
wana. Cyfry znaczące są lewostronne dosuwane do początku 
pola i dodawany jest znak eksponenty E + XX, jeśli nie 
jest określone czy znaki liczby + lub - znajdować się 
mają przed czy po wyrażeniu. Jedna pozycja na lewo od. 
kropki dziesiętnej jest zajmowana na wydrukowanie spacji 


lub znaku -—-. 


Przykład: 
PRINT USING "**.*h ©77";234.56 
2.35E+02 
PRINT USING ".ddH4k” "'-—*" ;888888 
8889E+06 
PRINT USING "+.f4"""""*;123 
+. 12E+03 


Znak _ /podkreślenie/ w formie powoduje, że następny 
znak będzie wyprowadzony jako znak literowy /nie będzie 
cyfrą/ 


PRINT USING "_!4k:*k_!";12.34 
'12.34! 


Sam znak literowy może być podkreślony przez umiaszcze— 


nie *__"* w formacie. 


Jeśli liczba, która ma być wyświetlona jest większa niż 
wyspecyfikowane pole numeryczne, znak % jest wyświetlony 
przed liczbą. Jeśli zaokrąglenie powoduje, że liczba 
przekroczy pole numeryczne, znak % będzie wydrukowany 


przed zaokrągloną liczbą. 
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PRINT USING "Fh.fk*"*;111.22 

%111.22 A 
PRINT USING ".4f£"; .999 

%1.00 


Jeśli liczba cyfr wyrażona przekracza 24, spowoduje to 
błąd: "Błędne wprowadzenie funkcji". 
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8.6. TABCI?> 


Funcja ta przesuwa kursor do I-tej kolummy w linii na 
ekranie lub drukarce... Jeżeli kursor znajduje się na prawo od 
I-tej kolumny to w wyniku wykonania TABCI> przesuwa się on do 
tej kolumny w następnym linii Pierwsza kolumna odpowiada I 
= 1, ostatnia: liczba kolumn minus jeden. 

I musi mieścić się w zakresie od 1 do 255. 

Funkcja TAB może być użyta jedynie w instrukcjach PRINT i 
LPRINT 


Przykład: 


10 PRINT "nazwa*;TABC25)>;"ilość":PRINT 
20 READ A$,B$ 

30 PRINT A$; TABCZ50)2;,B$ 

40 DATA "KALKURATOR" , "5750.00" 


run 
nazwa i lość 
KALKURATOR 5750.00 
OK 
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8.7. POSCI) 


Funkcja ta podaje położenie kursora w linii. Lewe skajne 
położenie odpowiada wartości 1. 

I jest parametrem biernym /nie wpływa bezpośrednio na wartość 
funkcji/. 

Przykład: 


IF POSCX>>60 THEN PRINT CHR$ (27 )+CHR$ (72) 


Zobacz także funkcję LPOS. 
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8.8. LPOS (X) 


Funkcja ta podaje aktualną pozycję głowicy drukarki na 
podstawie bufora drukarki. Niekoniecznie musi się ona zgadzać 
z aktualnym fizycznym położeniem głowicy. X jest argumentem 
biernym /tzn. jego wartość nie wpływa na wartość funkcji/. 


Przykład: 


100 IF LPOS(CX>>60 THEN LPRINT CHR$ (13) 
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8.9. SPC (I) 


Funkcja ta powoduje wydrukowanie lub wyświetlenie I spacji. 


Może być używana jedynie w instrukcjach PRINT i LPRINT. 
się mieścić w zakresie 0 - 255. 


Przykład: 


PRINT "NAZWA" ;SPCC17);"WARTOŚĆ" 


NAZWA WARTOŚĆ 
OK 


Zobacz także funcję SPACES$S. 
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I musi 
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8.10. SPACE$ (X) 


Wartością funkcji jest ciąg X znaków spacji. Warażenie X jest 
zaokrąglone do wartości całkowitej i musi mieścić się w 
zakresie 0 -— 255. 


Przykład: 


10 FOR I = 1 TOS 
20 X$ = SPACE$(I) 
30 PRINT X$; I 
RUN 
1 
2 
3 
4 
5 
OK 


Zobacz także funkcję SPC. 
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8.11. WRITE [<lista wyrażeń?>] 


Instrukcja ta służy do wyprowadzenia danych. Jeśli <ćlista 
wyrażeń> jest pominięta, to wyprowadzona jest pusta linia. 
Jeśli występuje w instrukcji lista wyrażeń>, to wyprowadzane 
są wartości tych wyrażeń. Wyrażenia na liście mogą być 
wyrażeniami numerycznymi i/lub alfanumerycznymi; muszą być one 
oddzielone przecinkami. 

Jeżeli dane są wyprowadząne, każda z nich będzie oddzielona od 
poprzedniej przecinkiem. Wyprowadzone wyrażenia alfanumeryczne 
będą ograniczone cudzysłowami. Po wyprowadzeniu ostatniej 
danej z listy BASIC dołącza sekwencję powrót karetki/nowa 
linia. Instrukcja WRITE wyprowadza wartości numeryczne 
używając takiego samego formatu jak instrukcja PRINT /patrz 
PRINT/. 


Pzrykład: 


10 A = 80 : B = 90 C$=KONIEC 
20 WRITE A,B,C$ 

RUN 

80,90, "KONIEC" 

OK 
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8.12. LPRINT (<lista wyrażeń>] 
LPRINT USING <wyrażenie alfanumeryczne>:<lista wyrażeń> 


Instrukcja ta służy do wydrukowania danych na drukarce. 
Instrukcje te dzielą tak samo jak PRINT i PRINT USING, ale 
wydruk odbywa się na drukarce  /patrz PRINT i PRINT USING/ 
Instrukcja LPRINT zakłada, Że na drukarce można wydrukować w 
jednej linit 80 znaków. 


Uwaga: 


Użycie instrukcji LPRINT wymaga,aby drukarka była podłączona 
do ELWRO 800 JUNIOR. 

Jeżeli drukarka nie jest przyłączona, działanie programu jest 
zawieszone (bez komunikatu). Należy przydzielić drukarkę i 


program wznowi działanie. 
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9. INSTRUKCJE DOTYCZĄCE DYSKOWYCH PLIKÓW I DANYCH PROGRAMÓW 


9.1. FILES [(<nazwa pliku>] 


Instrukcja ta służy do wydrukowania nazw plików zapisanych na 
dysku umieszczonym w aktualnie wyselekcjonowanej jednostce 
dyskowej. 

Jeżeli parametr <nazwa pliku> nie występuje. to wydrukowane 
zostaną nazwy wszystkich plików zapisanych na tym dysku. 
<nazwa pliku> może zawierać znak zapytania (7?) jako oznaczenie 
dowolnego znaku w nazwie pliku lub rozszerzenia. Gwiazdka (+*) 
umieszczona jako pierwszy znak nazwy lub rozszerzenia będzie 


oznaczać dowolną nazwę lub rozszerzenie. 


Przykłady: 


FILES 

FILES **.BAS" 

FILES *B:*.** 

FILES *TEST? . BAS" 
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9.2. LOAD <śnazwa pliku>tl, R] 


Instrukcja ta służy do załadowania pliku z dysku do pamięci. 
<nazwa pliku> jest nazwą użytą dla tego pliku w instrukcji 
SAVE. /System operacyjny CP/J dołącza do niej domyślne 
rozszerzenie .BAS/. Instrukcja LOAD przed umieszczeniem danego 
programu w pamięci, zamyka wszystkie otwarte pliki, usuwa 
wszystkie zmienne i linie programu będącego aktualnie w 
pamięci. Jeżeli w instrukcji LOAD występuje parametr 
opcjonalny R, program jest uruchamiany po wykonaniu instrukcji 
LOAD i nie są zamykane otwarte wcześniej pliki danych. 
Instrukcja LOAD z parametrem opcjonalnym R może być użyta do 
połączenia wykonania kilku programów /lub segmentów tego 
samego programu/. Informacje pomiędzy programami mogą być 
przekazywane za pomocą używanych przez nie dyskowych plików 
danych. 


Przykłady: 


LOAD "PROG15*, R - wprowadza program PROG15 z aktywnego dysku 
LOAD "B:ALA" — wprowadza program ALA z dysku B: 
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9.3. SAVE <śnazwa pliku> £[, A/,P] 


Instrukcja ta służy do zapisania programu na dysku. <nazwa 
pliku> jest ciągiem znaków umieszczonych w cudzysłowach, 
zakończonym domyślnym rozszerzeniem BAS. 

Jeżeli istnieje już na dysku plik o danej nazwie, to 
wyprowadzony na dysk program zostanie wpisany w jego miejsce. 
Aby zapisać program w kodzie ASCII należy użyć opcjonalnego 
parametru A. W przeciwnym przypadku program zostanie zapisany 
w zwięzłej postaci binarnej. Użycie kodu ASCII powoduje 
zajęcie większego obszaru na dysku, lecz czasami jest to 
niezbędne. Np.:instrukcja MERGE wymaga programu zapisanego w 
kodzie ASCII. Podobnie niektóre instrukcje sterujące /np. 
LIST/ mogą wymagać tej postaci. 

Użycie parametru opcjonalnego P spowoduje, że zapisany program 
będzie można uruchomić, ale nie będzie możliwe wyświetlenie i 


edycja programu. 


Przykład: 


SAVE "COM 2",A 
SAVE "PROG *,P 
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9.4. KILL <nazwa pliku> 


Instrukcja ta służy do usuwania pliku z dysku. W przypadku 
próby usunięcia pliku aktualnie otwartego pojawi się błąd 
*Plik otwarty". Instrukcja KILL jest używana dla wszystkich 
typów plików dyskowych: plików programowych, plików danych o 
odstępie bezpośrednim i sekwencyjnym. 

<nazwa pliku> musi być pełną nazwą pliku zapisanego w katalogu 
dysku (tj.w formacie X:nazwa pliku.typ) 


1 
Przykład 1: 


200 KILL *ZBIORDANE" 


Przykład 2: 


KILL "B:DANB1. BAS" 
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9.5. MERGE <nazwa pliku> 


Instrukcja ta służy do dołączania wyspecyfikowanego pliku 
dyskowego do programu będącego aktualnie w pamięci. 

<nazwa pliku> jest nazwą użyta dla tego pliku w instrukcji 
SAVE. /System operacyjny CP/J dołącza do niej domyślne 
rozszerzenie .BAS/. Plik ten musi być zapisany na dysku w 
formacie ASCII. /Jeśli tak nie jest, pojawi się błąd "Zła 
postać pliku"/. Jeśli jakieś linie programu w pliku dyskowym 
mają takie same numery jak linie programu w pamięci, linie 
programu pliku dyskowego zastąpią odpowiednie linie programu w 
pamięci. /Instrukcję MARGE można rozumieć jako "wkładanie" 
linii programu z dysku do programu w pamięci/. Po wykonaniu 
instrukcji MERGE interpretor BASIC powoduje zawsze powrót do 


poziomu instrukcji sterujących. 


Przykład: 


MARGE "ZBIORDANE" 
OK 
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9.6. NAMEśćstara nazwa pliku> AS <nowa nazwa pliku> 


Instrukcja ta służy do zmiany nazwy pliku dyskowego. <śstara 
nazwa pliku> musi istnieć a śnowa nazwa pliku> nie może 
istnieć wśród nazw plików zapisanych aktualnie na dysku, w 
przeciwnym przypadku wystąpi błąd. Po wykonaniu instrukcji 
NAME, plik o nowej nazwie istnieje na tym samym dysku i na tym 
samym miejscu na dysku, gdzie zapisany był plik o starej 


nazwie. 


Przykład: 


a 
OK 
NAME "PRSTARY" AS "PRNOWY*" 


OK 


W przykładzie tym plik, który istniał pod nazwą PRSTARY teraz 
będzie nosił nazwę PRNOWY. 
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9.7.CHAIN (MARGE]<nazwa programu?>(,l[<śnumer linii>] 
[, ALLI[, DELETE <zakres>]] 


Instrukcja ta służy do wywoływania programu i przeniesienia do 
niego zmiennych z programu aktualnie wykonywanego. 
<nazwa programu> to nazwa wywoływanego programu np.: 

CHAIN "PROG1" 
<numer linii> to numer linii lub wyrażenie obliczające numer 
linii z wywoływanego programu. Jeżeli parametr ten nie 
występuje wykonanie rozpoczyna się od pierwszej linii np.: 

CHAIN "PROG 1" , 1000 
Wartość tego parametru nie jest zmieniona przez instrukcje 
RENUM. Opcja ALL powoduje, że każda zmienna z aktualnie 
wykonywanego programu jest przenoszona do wywoływanego 
programu. Jeżeli ALL nie występuje program bieżący musi 
zawierać instrukcję COMMON specyfikująca przenoszone zmienne 
/zob. COMMON str. 144 / np.: 

CHAIN "PROG 1* , 1000, ALL 
Jeżeli występuje opcja MERGE, wywoływany program traktowany 
jest jako segment nakładany /overlay/. Oznacza to, że operacja 
MERGE wykonywana jest zarówno w programie wywoływanym jak i 
bieżącym. Program wywoływany musi być w tym wypadku plikiem 
zapisanym w kodzie ASCII, np.: 

CHAIN MERGE "NAKŁAD" , 1000 
Po załadowaniu do pamięci segmentu nakładkowego, zwykle 
pożądane jest późniejsze jego usunięcie w celu wprowadzenia 
następnego segmentu. W tym celu używa się opcji DELETE np.: 

CHAIN MERGE" NAKŁAD 1" , 1000, DELETE 1000-5000 

Numery linii programu <zakres> podlegają zmianom przez 
instrukcję RENUM. 
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Uwaga: 


W przypadku braku opcji MERGE, instrukcja CHAIN nie zachowuje 
typów zmiennych lub funkcji zdefiniowanych przez użytkownika. 
Oznacza to potrzebę powtórzenia odpowiednich instrukcji 
DEFINT, DEFSNG, DEFDBI, DEFSTR lub DEFFN w wywoływanym 
programie. 


Poniżej opisano instrukcję COMMON 


COMMON <lista zmiennycho> 


Instrukcja ta umieszczona w programie służy do przekazania 
wartości zmiennych do programu załadowanego do pamięci 
instrukcją CHAIN. Instrukcja COMMON występuje w powiązaniu z 
instrukcją CHAIN. 
Instrukcja COMMON może występować w dowolnym miejscu 
programu,chociaż zalecane jest umieszczenie jej na początku 
programu. Te same zmienne nie mogą być parametrami więcej niż 
jednej instrukcji COMMON.Zmienne indeksowe występujące na 
<liscie zmiennych> zaznaczone są poprzez dodanie nawiasów (0) 
po nazwie zmiennej. Jeżeli wszystkie zmienne mają być 
przeniesione do nowego programu należy użyć instrukcji CHAIN z 
opcją ALL i nie stosować instrukcji COMMON. 


Przykład: 


100 common A,B,C,DC>,G$ 
110 CHAIN *"”PROG3* ,10 
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9.8. OPEN <tryb pracy>,l*l<śnr pliku>, 
śnazwa pliku>,l<długość rekordu>] 


Instrukcja ta umożliwia otwieranie plików dyskowych w celu 
wczytywania plików z dysku lub zapisywania ich na dysk. 
Plik dyskowy musi zostać otwarty zanim zostanie wykonana 
jakakolwiek dyskowa instrukcja zapisywania lub wczytywania 
dotycząca tego pliku. ę 
Instrukcja OPEN przygotowuje bufor dla realizacji zapisywania 
lub wczytywania rekordu do pliku oraz określa tryb dostępu do 
pliku /sekwencyjny lub bezpośredni/. 

<tryb pracy> jest wyrażeniem alfanumerycznym, którego 


pierwszym znakim musi być litera O. I lub R: 


O - oznacza otwarcie pliku do zapisu o dostępie sekwencyjnam, 
I - oznacza otwarcie pliku do odczytu o dostępie sekwencyjnym, 
R - oznacza otwarcie pliku do odczytu/zapisu o dostępie 
bezpośrednim. Jeżeli pliku nie ma, na dysku zostanie 
założony plik o nazwie podanej w instrukcji OPEN. 
śnr pliku> jest wyrażeniem numerycznym typu całkowitego, 
którego wartość mieści się w przedziale od 1 do 15. Liczba ta 
jest przypisana do pliku tak długo, jak jest on otwarty i 
odnosi się także da innych instrukcji WE/WY związanych z tym 
plikiem € np. zapis 1 odczyt). <nazwa pliku> jest wyrażeniem 
alfanumerycznym zawierającym nazwę spełniającą wymagania 
systemu operacyjnego dotyczącego plików dyskowych, nazwa pliku 
może być sparametryzowana. 
<długość rekordu> jest wyrażeniem numerycznym typu 
całkowitego, które określa długość rekordów dla plików o 
dostępie bezpośrednim. Pominięcie tego parametru określa 
standardową długość rekordu wynoszącą 128 bajtów. 


7110.5011-01 35—0 (87.06) 146 


Uwaga: 

Plik do odczytu (sekwencyjnego lub bezpośredniego> może być 
jednocześnie otwarty przez kilka instrukcji OPEN, z różnymi 
numerami programowymi, natomiast do zapisu tylko z jednym 
numerem programowym pliku. W celu przeprowadzenia kontroli, 
czy plik istnieje na dysku, można otworzyć plik z parametrem 
"I" 1 zamknąć plik, a następnie otworzyć plik jako "R" lub "O" 


w zależności od potrzeby. 


Przykład 1: 
10 OPEN "I" ,2, "INWENT" 
Przykład 2: 


10 OPEN "R*,5,"DANE" ,30 

20 JS=1 

30 GET 5,JS 

40 IF EOF THEN 100 

50 EIELD 5,20 AS ZK1%,10 AS ZK2$ 
60 PRINT ZK1$;"...... * ,ZK2$ 

70 JS=JS+1: GOTO 30 


100 CLOSE 5 
110 PRINT*PLIK DANE PUSTY" 
120 END 
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9.9. CLOSE (%)<nr pliku>[,lf$l<nr pliku...>] 


Instrukcja ta zamyka wyspecyfikowane pliki i kończy operacje 
WE/WY związane z plikami dyskowymi. <numer pliku> jest liczbą, 
z którą plik został otwarty — instrukcją OPEN. 

GLOSE (bez argumentów> zamyka wszystkie otwarte pliki. Po 
wykonaniu CLOSE kończy się związek danego pliku z numerem 
pliku określonym w instrukcji OPEN. 

Plik może być otwarty ponownie z tą samą bądź inną liczbą. 
Instrukcja END i NEW automatycznie zamykają wszystkie pliki 
dyskowe. 


/Instrukcja STOP nie zamyka plików dyskowych/. 


Przykłady: 
CLOSE 1 


CLOSE 1,2 
CLOSE 
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9.10. INPUTY <nr pliku>,<ćlista zmiennycho> 


Instrukcja ta umożliwia wczytanie danych z pliku dyskowego o 
dostępie sekwencyjnym i przeniesienie ich wartości do 
wyspecyfikowanych zmiennych. 

śnumer pliku> jest liczbą, z którą plik został otwarty 
instrukcją OPEN do czytania. 

«lista zmiennych> zawiera nazwy zmiennych, którym nadane 
zostaną wartości. /Typy danych muszą się zgadzać z typami 
zmiennych/. Instrukcja INPUTY nie powoduje wyświetlenia znaku 
zapytania na monitorze. 

Dane z pliku dyskowego muszą występować w takiej kolejności w 
jakiej byłyby wprowadzone w odpowiedzi na instrukcję INPUT. 

W danych numerycznych poprzedzające spację, znaki powrótu 
karetki/kursora są pomijane. 

Pierwszy znak nie będący spacją, znakiem powrót karetki lub 
powrót kursora jest traktowany jako początek liczby. Liczba 
kończy się: spacją, znakiem powrót karetki lub powrót kursora 
albo też przecinkiem. Jeżeli plik dyskowy o dostępie 
sekwencyjnym jest przeszukiwany w celu znalezienia danej 
alfanumerycznej to także pomijane są poprzedzające spacje, 
znaki powrót karetki lub powrot kursora. Pierwszy znak nie 
będący spacją, znakiem powrótu karetki lub nową linią jest 
traktowany jako początek danej alfanumerycznej. Jeżeli 
pierwszym znakiem danej będzie cudzysłów /"/, to będzie się 
ona składała ze wszystkich znaków, które występują pomiędzy 
cudzysłowami. Dlatego dane alfanumeryczne ujęte w cudzysłów 
nie mogą zawierać wewnątrz znaku cudzysłowu. Jeśli pierwszym 
znakiem danej nie jest cudzysłów, to będzie się ona kończyć 
przecinkiem, znakiem powrót karetki lub nowa linia /albo też 
po 255 znakach/. Jeżeli w trakcie wykonania instrukcji INPUT%4 
wystąpi koniec pliku dane zostaną "obcięte". Po wykonaniu 
instrukcji GET instrukcja INPUTY i LINE INPUTY% mogą zostać 
użyte do czytania danych z bufora pliku dyskowego o dostępie 


bezpośredni m. 
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Przykład 1: 


10 INPUTY 1, A$, B$, C$ 
dane na dysku: 
" A.Jankowski", B.Kowalski, 1983 CR 
wartość zmiennych po wykonaniu instrukcji 10: 
A$ = A.Jankowski 
B$ = B.Kowalski- 
C$ = 1983 


Przykład 2: 


2000 OPEN "I",1l,"B:DANE" 
2010 INPUT *1,A18,A2$,A3%, A4* 
2020 CLOSE 1 


Z pliku o nazwie DANE z dysku B: zostanie wczytany do pamięci 
(do bufora dyskowego)? rekord. Zmiennym A1$, A2$, A3%, A4%, 
przyporządkowane zostaną odpowiednie wartości. Pola kodu w 
pliku danych *DANE" odzielone są od siebie przecinkami a pola 
znakowe ujęte są w cudzysłowy. Kolejne pola przyporządkowane 
są kolejnym zmiennym wyspecyfikowanym pó instrukcji INPUT 
(patrz instrukcje WRITE przykład 2). 
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9.11. LINE INPUTY% <ćnr pliku>,ć<zmienna alfanumeryczna?> 


Instrukcja ta służy do wczytywania całej linii /do 254 znaków/ 
bez ograniczników, z pliku dyskowego o dostępie sekwencyjnym 
do zmiennej alfanumerycznej. 

śnr pliku> jest numerem programowym tego pliku w instrukcji 
OPEN. <zmienna alfanumeryczna> jest nazwą zmiennej, do której 
linia będzie wczytana. LINE INPUT * wczytuje wszystkie znaki 
pliku dyskowego o dostępie sekwencyjnym aż do znaku powrót 
karetki. Przeskakuje ona sekwencję powrót karetki/nowa linia i 
następna instrukcja LINE INPUTY wczytuje wszystkie znaki aż do 
następnego znaku powrót karetki. 

LINE INPUTY jest szczególnie użyteczna, gdy każda linia pliku 
danych została podzielona na pola, lub jeśli program zapisany 
w kodzie ASCII (patrz SAVE> jest czytany jako dane przez inny 
program. Po wykonaniu instrukcji GET można użyć instrukcji 
INPUT* i LINE INPUT* do wczytania znaków z bufora pliku 
dyskowego o dostępie bezpośrednim. 


Przykład: 


10 OPEN "O" , 1, "LIST" 

20 LINE INPUT "NAPISZ DANE ?" ;C$8 
30 PRINTY 1, C$ 

40 CLOSE 1 

50 OPEN *I* , 1, "LIST" 

60 LINE INPUT* 1, C$ 

70 PRINT C$ 

80 CLOSE 1 

RUN 

NAPISZ DANE ? JAN KOWALSKI 50-770 WROCŁAW 7 
JAN KOWALSKI 50-770 WROCLAW 7 

OK 
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4.12. EOF (<numer pliku>) 


Funkcja ta przyjmuje wartość 1 /prawda/, jeśli podczas 
czytania pliku danych o dostępie sekwencyjnym napotkany będzie 
koniec pliku. Zaleca się używanie funkcji EOF do badania, czy 
napotkano koniec pliku podczas wykonywania instrukcji INPUT, 
pozwala to bowiem uniknąc wystąpienia błędu "Koniec pliku". 
Funkcję EOF używać można także w przypadku korzystania z 
plików o dostępie bezpośrednim. Jeżeli w czasie wykonywania 
instrukcji GET napotkany zostanie koniec pliku, EOF przyjmuje 
wartość 1. Umożliwia to na przykład określenie wielkości pliku 


za pomocą poszukiwania binarnego lub innego algorytmu. 


Przykład 1: 


10 OPEN "I" , 1, "ZEDANE" 
Z0OC=0 

30 IF EOFC1> THEN 100 

40 I PUT ń 1, MO) 

50 4 = C + 1 : GOTO 30 
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9.13. PRINT %<numer pliku>.[USING<wyrażenie alfanumeryczne?>; 
[lista wyrażeń] 


znstrukcja ta służy do wpisywania danych do pliku dyskowego oO 
dostępie sekwencyjnym. <numer pliku> jest numerem, z którym 
został otwarty plik instrukcją OPEN. <wyrażenie 
alfanumeryczne> składa się z opisów pól /jak przedstawiono w 
komentarzu dotyczącym instrukcji PRINT USING/. Wyrażenia na 
śliście wyrażeń> są wyrażeniami numerycznymi i/lub 
alfanumerycznynmi, które zostaną wpisane do pliku. 

Instrukcja PRINTY nie powoduje kompresji danych na dysku. 
Postać danych zapisanych na dysk jest taka sama w jakiej były 
one wyświetlone na monitorze przy użyciu instrukcji PRINT. Z 
tego powodu należy zwrócić szczególną uwagę na rozdzielenie 
danych na dysku, aby mogły one być bezbłędnie wczytane z 
dysku. Na liście wyrażeń, wyrazenia numeryczne powinny byc 
oddzielone średnikami, np.: 


PRINT * 1. A; B; C; X 


j Y; Z 


/Jeżeli używa się przecinków do odzielania wyrażeń, dodatkowe 
puste znaki występujące między wyrażeniami również zostaną 
wpisane na dysk/., Wyrażenia alfanumeryczne na liście muszą być 
oddzielone średnikiem. W celu poprawnego umieszczenia 
wyrażenia alfanumerycznego na dysku, należy użyć ograniczników 


wymienionych explicite na liscie wyrażeń, np.: 


niech A$ = "CANERA" 1 B$ = "93604-1*. 

Instrukcja: 

PRINT % 1, A$; B% 

powoduje wpisanie na dysk wyrażenia CAMERA 93604-1. 


Ponieważ nie ma tu ograniczników, wyrażenie to nie zostanie 


wpisane na dysk jako dwa oddzielne wyrażenia alfanumeryczne. 
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Aby rozwiązać ten problem, należy wstawić explicite 
ograniczniki do instrukcji PRINT * w sposób następujący: 


PRINT % 1,A$; ", " ; B$ 
Na dysku zostanie wpisana w postaci 
CAMERA, 93604 - 1 


i może być ponownie wczytana do dwóch zmiennych 
alfanumerycznych. Jeżeli wyrażenie alfanumeryczne samo w Sobie 
zawiera przecinki, średniki, znaczące spacje występujące przed 
wyrazeniem, znaki powrót karetki lub nowej linii, należy 
wpisać je na dysk łącznie z rozdzielającymi je cudzysłowami — 
CHR$ (34). 

Np. niech A$= "CAMERA, AUTOMATIC" I B$ ="  93604-1* 
Instrukcja: PRINT % 1,A$; BS 

wpisze na dysku następującą postać: 

CAMERA, AUTOMATIC  93604-1 

i instrukcja INPUT % 1,A$, B$ podstawi "CAMERA" do A$ 1 

* AUTOMATIC 93604-1"* do B$. Aby prawidłowo odzielić te 
wyrażenia na dysku, należy wpisać podwójne cudzysłowy do 
postaci dyskowej używając CHR$ (34). 

Instrukcja PRINTY1,CHR$(34)>; A$ CHR$ (34); CHR$ (34); 

B$;,CHR$ (34>powoduje wpisanie na dysk następującej postaci: 
"CAMERA, AUTOMATIC" "93604-1"1 instrukcja: INPUT* 1,A$; BS 
podstawi"*CAMERA, AUTOMATIC" do A$ i *93604-1"” do B$ 
Instrukcja PRINT % może być również użyta z opcją USING. co 
umożliwia kontrolę formatu pliku dyskowego. 

Np.: PRINT 41, USING "SSRFY.*KŃ,*"* ; J; K; L. 

Instrukcje PRINT 4, PRINT « USING i WRITE % mogą być również 
wykorzystane do umieszczenia znaków w buforze pliku dyskowego 


o odstępie bezpośrednim przed użyciem instrukcji PUT. 
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9.14. WRITE f<numer pliku><lista wyrażeń?> 


Instrukcja ta służy do wpisywania danych do pliku dyskowego o 
dostępie sekwencyj nym. 

śnumer pliku> jest numerem, pod którym plik został otwarty 
instrukcją OPEN w trybie "*O*. Wyrażenia na liście są 
wyrażeniami numerycznymi i muszą być odzielone przecinkami. 
Różnica pomiędzy WRITE*% i PRINTY jest następująca: instrukcja 
WRITE%4 wstawia przecinki pomiędzy poszególne dane podczas 
wpisywania ich na dysk i ogranicza znaki alfanumeryczne 
cudzysłowami. Nie jest jednak konieczne, by użytkownik wstawił 
konieczne ograniczniki na listę. Po ostatniej danej z listy 
wpisanej na dysk dołączona jest sekwencja powrót karetki/nowa 
linia. 

WRITE*%*, PRINT* i PRINTY USING mogą być również użyte do 
wpisywania znaków do bufora pliku dyskowego o dostępie 
bezpośrednim przed użyciem instrukcji PUT. W przypadku użycia 
instrukcji WRITE% bufor zostanie wypełniony spacjami aż do 
sekwencji powrót karetki. Każda próba wczytania z dysku lub 
wpisania na dysk po zapełnieniu bufora jest sygnalizowamna 
błędem "Przepełnienie FIFLD". 


Przykład 1: 


A$ = "CAMERA'' : B$ = *"*93604-1* 
WRITE * 1,A$, B$ 
wpisuje dane na dysk w sposób następujący: 
CAMERA" , "93604-1" 
Gdy wystąpi teraz inetrukcja INPUT* W postaci 
INPUT * 1, A$, B$ 
spowoduje to wprowadzenie "CAMERA* do A$ 1 *93604-1" do B$ 
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Przykład 2: 


3000 A1$="KOWALSKI JAN*: A2$="WROCŁAW" : A3%=7222: A4W=33.50 


4000 OPEN *"O",1,*"B: DANE" 
4010 WRITE *1,A1%,A2$,A3%, A4% 
4020 CLOSE 1 


Plik dyskowy zawiera informacje "KOWALSKI JAN” ,"WROCŁAW"*, 222, 
33.50. Informacje te instrukją INPUT mogą być przyporządkowane 
zmiennym występującym w tej instrukcji. 
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9.15. LOC («numer pliku>) 


W przypadku plików dyskowych o dostępie bezpośrednim funkcja 
ta podaje numer następnego rekordu, który będzie użyty w 
przypadku wykonania instrukcji GET lub PUT /bez numeru 
rekordu/. Dla plików dyskowych o dostępie sekwencyjnym funkcja 
LOC podaje liczbę sektorów /bloków 128 - bajtowych/ wczytanych 
z pliku lub zapisanych do pliku od czasu otwarcia tego pliku 
za pomocą instrukcji OPEN. 


Przykład: 


200 IF LOCC1)> 50 THEN STOP 
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9.16. LOF(<numer pliku>) 


Funkcja ta podaje liczbę rekordów w ostatnio wczytanym lub 
zapisanym bloku /128 rekordów/. Jeżeli plik nie rozciąga się 
poza jeden blok, wtedy wartość LOF podaje prawidłową długość 
pliku. Wartość funkcji LOF wynosi zawsze 5 MOD8. Oznacza to. 
że reszta z dzielenia wartości LOF przez 8 wynosi zawsze 5. 
Kolejne wartości przyjmowane przez funkcję wynoszą 5,13,21,29 
itd. 


Uwaga: 

Wartość otrzymana przez LOF może wskazać rekord, nigdy 
uprzednio nie zapisany (ponieważ zapisy tego typu są wstępnie 
rozszerzone). 


Przykład: 


120 IF NUM%>LOFC1> THEN PRINT "ZŁY PLIK WEJŚCIOWY" 
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9.17. GET (%4]l<numer pliku>,ć<numer rekordu> 


Instrukcja GEI realizuje wczytanie rekordu pliku dyskowego o 
dostępie bezpośrednim do bufora pliku dyskowego o dostępie 
bezpośrednim. 

<numer pliku> jest liczbą określającą numer pliku, który 
został otwarty instrukcją OPEN. 

śnumer rekordu> jest numerem rekordu, który ma być wczytany. 
Największy możliwy numer rekordu wynosi 32 767. 

Każdy odczyt rekordu o dostępie bezpośrednim skojarzony jest z 
buforem 128 znakowym, który jest transmitowany z odpowiedniego 
rekordu fiycznego pliku dyskowego do pamięci podczas operacji 
odczytu. 

Jeżeli wykona się operację GET na rekordzie, który nigdy nie 
został zapisany (instrukcją PUT> do bufora dyskowego zostaną 


wczytane same zera. 


Przykład: 


3000 JJ=l 


3300 VN$=*B: DANE" 

3310 OPEN "R"*,2,VN$, 16 

3320 GET: 2,JJ 

3330 FIELD 2,13 AS VIND,2 AS VNLR 
3340 
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9.18. FIELD (*]l<nr pliku>,<N> AS <zmienna alfanumeryczna...> 


Instrukcję FIELD stosuje się w celu przypisania zmiennym 
opisanym w tej instrukcji wartości danych, zawartych w 
buforze pliku o dostępie bezpośrednim po wykonaniu instrukcji 
GET lub aby przygotować wprowadzenie do bufora danych przed 
wykonaniem instrukcji PUT. 
śnr pliku> jest liczbą, z którą dany plik został otwarty. 
<N> jest liczbą znaków odpowiadających <zmiennej 
alfanumerycznej>, np.: instrukcja 

FIELD 1,20 AS N$, 10 AS ID$, 40 AS ADD$ 
przypisuje pierwsze 20 pozycji /bajtów/ w buforze pliku o 
dostępie bezpośrednim zmiennej N$, kolejne 10 pozycji zmiennej 
ID$, a następnie 40 bajtów zmiennej ADD$. 
Instrukcja FIELD nie umieszcza żadnych danych w buforze. 
Sumaryczna liczba bajtów przypisywanych zmiennym w instrukcji 
FIELD nie może przekraczać długości rekordu podanej podczas 
otwierania danego pliku. W przeciwnym razie pojawia się błąd 
"Przepełnienie FIELD". /Brak specyfikacji długości rekordu w 
instrukcji OPEN odpowiada standardowej długości 128 bajtów/. 
Dla tego samego pliku może być wykonana dowolna liczba 
instrukcji FIELD, których efekt wykonania jest aktualny w tym 


samym czasie. 
Uwaga: 


Nie wolno używać nazw zmiennych wymienionych w instrukcji 
FIELD w instrukcjach INPUT i LET. 

W instrukcji FIELD występują tylko zmienne alfanumeryczne. 

W związku z zapisem do pliku instrukcją PUT przy podstawieniu 
wartości numerycznych do zmiennych w instrukcji FIELD 
obowiązuje dokonanie konwersji na zmienne alfanumeryczne 
(MKI, MKS, MKD> i na odwrót, po instrukcji GET należy dokonać 
konwersji zmiennych alfanumerycznych na numeryczne 

(CVI,CVS, CVD) 


7110.5011—01 35—0 (87.05) 169 


Przykład: 


10 OPEN "R" ,1, "TESTDANE" ,38 

20 FIELD 1,38 AS A% 

30 FIELD 1,10 AS A10$,12 AS A20%,16 AS A30$ 

40 LSET A$="PANSTWOWE WYDAWNICTWO NAUKOWE WROCŁAW” 
50 PUT 1,1 

60 CLOSE 

70 OPEN "R* ,1, "TESTDANE", 38 

80 GET 1,1 

90 PRINT A108: PRINT A20$: PRINT A30$: PRINT A%$ 
100 CLOSE 

110 END 

RUN 


PANSTWOWE 

WYDAWNICTWO 

NAUKOWE WROCŁAW 

PANSTWOWE WYDAWNICTWO NAUKOWE WROCŁAW 
OK 
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9.19. CVI (<2-bajtowy ciąg znaków>) 
CVS (<4-bajtowy ciąg znaków>?) 
CVD (<8-bajtowy ciąg znaków?>) 


Funkcje te realizują konwersję znaków do postaci numerycznej. 
Wartości numeryczne, które czytane są z pliku dyskowego o 
dostępie bezpośrednim, muszą zostać poddane konwersji z 
postaci znakowej do postaci liczb. 

CVI realizuje konwersję dwu-bajtowego ciągu znaków na liczbę 
typu całkowitego; 

CVS realizuje konwersję cztero-bajtowago ciągu znaków na 
liczbę pojedyńczej precyzji; 

CVD realizuje konwersję ośmio-bajtowego ciągu znaków na liczbę 
podwójnej precyzji. 


Przykład: 


70 FIELD *1,4 AS NN, 
80 GET * 1 
90 Y = CVSC(N$) 


Patrz też MKI$, MKS£$, KKDS 
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9.20. 


MKI% (<całkowite wyrażenie arytnetyczne») 


MKS$ (<wyrazenie arytmetyczne pojedyńczej precyzji») 


MKD$ (<wyrażenie arytmetyczne podwójnej precyzji>) 


Funkcje te realizują konwersję wartości numerycznych do 


postaci znakowej. 


Każda wartość numeryczna umieszczona w 


buforze przeznaczonym do współpracy z plikami dyskowymi o 


bezpośrednim dostępie za pomoca instrukcji LSET lub RSET, musi 


być poddana konwersji do postaci znakowej. 


MKI$ realizuje konwersję liczby całkowitej do postaci 


2-—ba 


4-bajtowego ciągu znaków, 


8-ba 


jtowego ciągu znaków, MKS$ liczby pojedyńczej precyzji do 


jtowego ciągu znaków. 


Przykład: 

90 AMT = (K + TV 

100 FIELD * 1, 8 AS D$, 20 AS N$ 
110 PSET D$ = MKS$ (AMT) 

120 LSET N$ = A% 

130 PUT % 1 


zobacz także CVI, CVS i CVD. 


162 


a MKD$ liczby podwójnej precyzji do 
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9.21. LSET<zmianna alfanumeryczna>=ćwyrażenie alfanumeryczne?> 


RSET<zmienna alfanumeryczna>=<wyrażenie alfanumeryczne? 


Instrukcja ta służy do umieszczenia danych z pamięci 
operacyjnej do bufora pliku dyskowego o dostępie bezpośrednim 
św przygotowaniach do instrukcji PUT/. Jesli <wyrażenie 
alfanumeryczne> wymaga mniej bajtów niż określono? to w 
instrukcji FIELD dla <zmiennej alfanumerycznej>, instrukcja 
LSET dosuwa lewostronnie wyrażenie alfanumeryczne do końca 
pola /spacjami wypełnia się pozycje nadmiarowe z prawej 
strony/. Jeśli wyrażenie alfanumeryczne jest dłuższe niż 
określone dla zmiennej alfanumerycznej pole, znaki końcowe są 
opuszczone. Wartości numeryczne muszą być podane konwersji do 
postaci znakowej zanim zostana użyte w instrukcji LSET lub 
RSET /patrz funkcje MKI$, MKSS$, MKDS/. 


Przykład: 

150 LSET A$ = MKSO$ (AMT) 
Uwaga: 

Instrukcje LSET t RSET mogą być również wykorzystane do 
lewostronnego lub prawostronnego dosuwania wyrażenl2 


alfanumerycznego w podanym polu. Na przykład, linie programowe 


110 A$Ś = SPACE$C2ZO0) 
120 RSET A$ = N$ 


prawostronnie dosuwają ciąg znaków N$ do końca dwud.iesto- 


znakowego pola. Może to być bardzo użyteczne przy tormatowaniu 


wydruków. 
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9.22. PUT (*%)]<numer pliku>(, numer rekordu>] 


Instrukcja ta służy do przepisania rekordu z bufora dyskowego 
o dostępie bezpośrednim do pliku dyskowego o dostępie 
bezpośrednim. Parametr ćnumer pliku> jest numerem, pod którym 
plik został otwarty instrukcją OPEN. Jeśli parametr <numer 
rekordu> nie występuje, rekord będzie miał następny numer 
rekordu /po ostatniej instrukcji PUT/. Najwyższy możliwy numer 
rekordu wynosi 32767. 


Przykład 1: 


10 OPEN "R",1,*"*TEST. DAT" 

20 FIELD 41, 128 AS AS 

30 PRINT "ZAPIS PLIKU Q DOSTĘPIE BEZPOŚREDNIM MAX 128 ZNAKOW" 
40 FOR I= 1 TO 10 

50 LINE INPUT B% 

60 LSET A$=B$ 

70 PUT i,I 

80 NEXT 

90 CLOSE : END 
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Przykład 2: 


5 DEFSTR R :DEFDBL D :DEFINT I 
10 JJ=l1 


100 OPEN *R*,3,*B: DANE" ,60 


110 FIELD 3,2 AS R1,13 AS R2,22 AS R3,4 AS R4,8 AS RÓ,2 AS R©Ó 


9 AS R7 
120 LSET R1=RD1: LSET R2=RD2: LSEI R3=RD3 
130 RSET R4=MKS$ (PA4): RSET R5S=MKD$ (DR5) 
140 RSET R6=MKI$(IA6)>: LSBT R7=RD7 
190 PUT 3,JJ 
160 JJ=JJ+1 
170 IF JJ=100 THEN CLOSE: END 
180 
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9.23. RESET 


Instrukcja ta służy do uaktualniania informacji systemowych po 


zmianie dysków. 
Procedura zmiany dysków jest następująca: 


10 Instrukcją CLOSE zamknąć wszystkie pliki danych, które mogą 
być w tym czasie otwarte. 

2 Wymienić dyski: wyjąć stary dysk i włożyć nowy. 

3> Po założeniu nowego dysku napisać na monitorze RESET 


i nacisnać klawisz CR (return). 


Niewłaściwe stosowanie tej procedury podczas wymiany dysków 


może spowodować utratę danych, wystąpi błąd. 
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3.24. SYSTEM 


Instrukcja ta powoduje zamknięcie wszystkich plików i powrót 


do poziomu systemu operacyjnego CP/J. Użycie CTRL - C powoduje 


zawsze powrót do poziomu języka BASIC, tj. przerwanie 


działania innych instrukcji np.: 


Przykład: 


SYSTEM 
A> 
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RUN, LIST i itp. 
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10. Alfabetyczny wykaz instrukcji języka programowania BASIC 


ABS.......1414111: . 82 
MSC. aria aaaaasii 102 
ATH........1.:..1:... 83 
AUTO.............. . 32 
CALL.....440444:11. 111 
CDBL.......:.:.1:... 95 
CHAIN.............. 143 
CHR$........14.::.. 102 
CINT........::..1... 93 
CLEBAR.............. 45 
CLOSB...... . ...145 
COMKON............. 144 
CONT.......:..:1111: 44 
COS....aaasasaia:>: 85 
CSHG.....:4::41111. 94 
CVI.......... ...., 161 
GWS. ruda siase 161 
ĆVD........:1.. ....161 
DATA........ . 47 
DEF FN......... +... 52 
DEFINWT/SEG/DBL/STR. 51 
DEF USR..... ...... 54 
DELETE........ . 35 
DIKMK....... . . 48 
BDIT..........1:... 36 
BND............1.1. 79 
BOF..........41.1.: 151 
BRASB........ d..... 49 
BRR, ERL........... 70 
BRROR.............. 71 
BXP............ +... 88 
FIBLD.......... . 159 
FILES.............. 137 
FIX....... ...... 91 
FOR...NEXT......... 62 
FRB....... .... .. 70 
GET............ . 158 
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GOTO............. 56 
HEX$....... a... 96 
IF...THEN........ 59 
INKEY............ 110 
INP.............. 116 
INPUT............ 117 
IWPUT$....... . 119 
IEPUTŚ........... 148 
INSTR............ 109 
INT.............. 90 
KILL............. 140 
LEFT$............ 98 
LEN.............. 105 
LET..... SEKEEZE 46 
LINB INPUT +..120 
LINE INPUT*...... 150 
LIST....... .. 33 
LLIST............ 34 
LOAD...... aa..... 138 
LOC....4::1.::1.. 156 
LOG..........1... 87 
LOF..... KEEZEDDE 157 
LPOS............ „132 
LPRINT,...USING.. 136 
LSET$............ 163 
MERGE............ 141 
MID$......... 100/101 
MKI$.......... ...162 
KKS$.... . „.162 
MKD$............. 162 
NAME........ . 142 
NEW.............. 30 
OCT$........ .. 97 
ON ERROR GOTO.... 73 
OW GOSUB ........ 58 
OPER...... +211....145 
OPTION BASE n.... 50 
OUT..... 221444...115 


PRINT USING........... 124 
PRINTY, PRINT+ USING. . 152 
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DODATEK A: KOMUNIKATY BŁĘDOW 


| ponaaĆ 


Nr 
Błędu KOMUNIKAT 


za Z A RA O Z. W ZA ZNA ND A RA 2 A RNA A AE ZERA O W a A Z A A ORA c c 


1. NEXT bez FOR W programie umieszczono instrukcję NEXT 
bez odpowiedniej instrukcji FOR 


2. Błąd składniowy Wykryto błąd składni w instrukcji lub 
linii programowej, np brak 
ograniczników, błędne sekwencje znaków, 
brak znaków itp. 


3. RETURN bez GOSUB W programie umieszczono instrukcję 
RETURN - (powrót z podprogramu» bez 
instrukcji instrukcji GOSUB (wywołanie 


podprogramu) 


4. Brak danych W instrukcji DATA nie podano 
odpowiedniej ilości danych. Lista 
zmiennych w instrukcji READ jest 
większa niż danych w instrukcji DATA 

5. Błędne wywołanie funkcji 
Komunikat sygnalizuje błędy 
w instrukcjach MID$, LEFT$, RIGHT$, INP, 
OUT, PEEK, POKE, TAB, LOG, SQR, 
SPC,STRING$, SPACE$, ON... GOTO, 

R, w przypadku błędnych argumentów 

W instrukcji USR występuje w przypadku 
wywołania podprogramu w asemblerze 

bez podania adresu startu (DEF). 
Ponadto w operacjach dyskowych (PUT) 
jeśli opis bufora (FIELD> jest za mały 
(brakuje zmiennej» a nastąpiło podsta- 
podstawienie wartości do zmiennej i 


zapis 
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6. 


7. 


11. 


12. 


13. 
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Przepełnienie Zmienne lub wyniki obliczeń nie 
mieszczą się w deklarowanych zmiennych 
— wystąpi (nadmiar> np. w instrukcjach 
FIELD, WRITE i instrukcjach 
arytmetycznych. Wynik operacji jest 
równy zero i działanie programu jest 


komtynuowane 


Brak pamięci Komunikat wystąpi w przypadku: 

— zbyt długiego programu użytkowego, 

— po użyciu parametru /M: przy 
inicjacji interpretera, braku miejsca 
na zmienne i bufory dyskowe, 

- dużej ilości zagłębień (FOR, GOSUB) 

— braku miejsca przy dużej ilości 
zmiennych występujących w programie 


Brak linii programu... 
W instrukcjach GOTO, GOSUB, IF... 
THEN. ..ELSE, DELETE podano nie istnie- 
jący w programie numer linii 


Zły indeks Instrukcja DIM definiuje tablicę już 
zdefiniowaną np. DIM ACI> i próba 
definicji DIM ACI,J. 


Dzielenie przez zero Próba dzielenia przez zero 


Zły typ prosty Błędne użycie instrukcji w trybie 
natychmiastowym (prostym) 


Błąd typów Niepoprawne typy danych w instrukcjach 
podstawiania lub konwersji, np. 
określono argumenty numeryczne, a 


powinny być alfanumeryczne i na odwrót 
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14. 


15. 


16. 


17. 


18. 


19. 


20. 


21. 


22. 


23. 


Poza łańcuchem znaków... 
Brak pamięci przy próbie podsta 
wiania do zmiennej łańcucha znaków 


za długi łańcuch 
Próba utworzenia łańcucha dłuższego 
niż 255 znaków 


Zły typ łańcucha znaków... 
Łańcuch zawiera niedozwolone 


znaki lub jest zbyt złożony 


Nie można wznowić programu... 
Zatrzymanie programu na- 
stąpiło w wyniku błędu uniemożliwia- 
jącego kontynuację programu lub braku 
programu w pamięci 


Niezdefiniowana funkcja użytkownika... 
Wywołano funkcję USR przed użyciem 
w programie instrukcji DEF 


Brak RESUME Podprogram obsługi błędów nie zawiera 
RESUME 
Błąd RESUME Instrukcji RESUME użyto przed procedurą 


qbsługi błędów 


Nieznany błąd Instrukcja ERROR specyfikuje kod błędu 
dla którego nie przewidziano odrębnego 
komunikatu 

Brak argumentu Instrukcja nie zawiera argumentu lub 


podano błędny argument 


Przepełnienie bufora linii 


7110.56011—01 35-—0 (87.05) 


171 


26. 


29. 
30. 


31. 


50. 


51. 


52. 


53. 


54. 
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Próba wprowadzenia linii zawierającej 
zbyt dużo znaków do bufora linii 


FOR bez NEXT W programie użyto instrukcji FOR bez 
instrukcji NEXT 

WHILE bez WEND Użyto instrukcji WHILE bez WEND 

WEND bez WHILE Wystąpiła w programie instrukcja WEND 
bez WHILE 


Brak grafiki 


Przepełnienie FIELD 
W instrukcji FIELD zdefiniwano rekord 
dłuższy niż zadeklarowany rekord 


dyskowy 


Błąd systemowy Wielokrotne wystąpienie tego samego 


błędu: uwagi kierować do producenta 


Zły numer pliku Odwołanie do pliku zawiera błędny numer 
pliku:, (inny numer niż otwartego pliku) 
numer pliku wykracza poza dostępne 
numery plików wyznaczone podczas 
inicjacji interpretera BASIC 
parametrem /F: (bez podania tego 
parametru numer pliku może przybierać 
wartosci 1, 2 lub 3) 


Brak pliku Odwołanie do pliku, którego nie ma w 
katalogu dysku (instrukcje LOAD, KILL, 
OPEN) 


Błędny tryb dostępu do pliku 
Próba działania instrukcjami 
bezpośredniego dostępu GET, PUT, LOF na 
pliki o dostępie sekwencyjnym 
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55. Plik otwarty 


57. Błąd dyskowy 


58. Plik istnieje 


Próba otwarcia instrukcją OPEN pliku 
już otwartego lub próba kasowania 
otwartego pliku z katalogu instrukcją 
KILL 


Błąd operacji dyskowej wejścia/wyjścia 
interpreter BASIC zawiesza działanie 


Plik o nazwie wyspecyfikowanej w 
instrukcji NAME istnieje na dysku 


61. Przepełnienie dysketki 


Brak miejsca na dysku dla 
tworzonego pliku 


62. Brak parametrów INPUT 


63. Zły numer rekordu 


64. Zła nazwa pliku 


66. Zły format pliku 


67. Zbyt dużo plików 
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Błąd występuje w przypadku próby 
czytania instrukcją INPUT pliku po 
napotkaniu końca pliku, lub pliku 
pustego 


Odwołanie się w instrukcji GRT lub PUT 
do numeru rekordu spoza dopuszczalnego 
zakresu (1-32767) 


Błędna nazwa pliku w instrukcjach LOAD, 
SAVE, KILL, OPEN (np. długa nazwa) 


Podczas ładowania zawartości pliku do 


pamięci operacyjnej w wymaganym 
formacie (ASCII> stwierdzono błędny 
format 


Próba utorzenia nowego pliku na dysku 


instrukcją SAVE lub OPEN w przypadku 
braku miejsca w katalggu dysku 
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DODATEK B: 
kod kod 

znak ASCII dziesiętny 
-- 20 —— 32 
|! --21 — 883 
 -—- 22 — 34 
* -— 23 -— 35 
8 -—-24 — 36 
% -—-25 — 37 
% -—- 26 -—- 38 
* -- 27 7-7 389 
( -- 28 — 40 
) -- 29 — 41 
8 -- 2A — 42 
+ --2B — 43 
77 20 — 44 
— -- 2D -— 45 
+ 77 28 — 46 
/ -—-= 2P — 47 
0 -—-30 -—— 48 
1 --31 -—-409 
2 -—-32 — 50 
3 -- 33 — 51 
4 -—34 -— 52 
5 -— 359 — 53 
6 -- 36 — 54 
7 -—-37 -—- 58 
8 -- 38 -—- 06 
0 -—-30 — 57 
: 7 34 — 686 
; 7-7 3B -—- 50 
< —- S$C — 60 
z -—- 3D — 61 
> --83B — 62 
? —83P — 63 
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KODY KLAVIATURY 


2 MO e M JK. GP NU WE V O OM M © ZK « m 8 © W W O O U >» 


znak ASCII dziesiętny 


kod _ kod 
— 40 -—- 64 
-- 41 -- 65 
-— 42 -- 66 
-— 43 -—- 67 
-— 44 -— 68 
-- 45 -- 69 
-— 46 -—- 70 
-—— 47 —71 
-—— 48 — 72 
-— 49 -—— 73 
-— GA -- 74 
-— 4B — 75 
-- 4C — 76 
-— 4D —- 77 
-— 4B -—- 78 
— 4P -—- 709 
-- 50 — 80 
-- 51 -- 81 
-—— 52 -- 82 
-- 53 -- 83 
-—- 54 — 84 
-—— 55 -- 85 
-- 56 -— 86 
-— 57 -—- 87 
-- 58 -— 88 
-- 59 -—- 80 
— 54 -—- 90 
— 5B -- 01 
-—— 50 -—- 92 
-- 5D -- 93 
-— SB -—- 094 
-- SP -— 95 


„OD. KK Ę << CE e M " O U O W HH -H- W — +- PO M © A O o B 


„w - 


kod kod 
znak ASCII dziesiętny 
-—— 60 -- 96 
-- 61 -—- 97 
-—- 62 -- 98 
-- 63 —- 99 
-- 64 -- 100 
-— 65 -—- 101 
—- 66 -- 102 
—- 67 -- 103 
-—- 68 -—- 104 
-—- 69 -- 105 
-—- 6A -—- 106 
-—— 6B —- 107 
== 6€ -—- 108 
-—- 6D -—- 109 
-- GB -—- 110 
-—- 6F -—- 111 
-— 70 -—- 112 
-—- 71 7-7 113 
=—- 72 — 114 
-- 73 —- 115 
—- 74 -—- 116 
—-— 75 — 117 
-- 76 -—- 118 
—— 77 -—- 119 
—— 78 -—- 120 
—-— 79 -—- 121 
—— 7A -—- 122 
—— 7B -—- 123 
-- 70 -—- 124 
—- 7D —- 125 
—- 7E —- 126 
—— 78 — 127 
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KODY ZNAKÓW POLSKICH 


kod kod kod kod 

znak hex dziesiętny znak hex dziesiętny 
Ą -—- C1 -—- 198 ą —- EL -—- 225 
© --— C3 -—- 195 ŚĆ -—- E3 -—- 227 
Ę -- CS -- 197 ę -—- ES —- 229 
Ł -—-— CC -—- 204 Ł -- EC -—- 236 
NK -- CE —- 206 Ń -- EE -—- 238 
O -- CF -—- 207 Ó -—- EF -—- 239 
Ś -- D3 -- 211 8 -— P3 -—- 243 
2 -- DO —- 217 Ż -- FO -- 240 
Ż -- DA -- 218 Ź —- FA -—- 250 


KODY ZNAKOW SEMIGRAFICZNYCH 


kod kod kod kod 
znak hex dziesiętny znak hex dziesiętny 
LJ -- CO -—- 192 LI —- CA -- 202 
LL -- C2 -—- 194 IB —- CB -—- 203 
Lr] —— C4 -- 196 e —-— CD -- 205 
LI] -— C6 -- 198 —- DO -- 208 
—— C7 -—- 190 —— DL -- 209 
em -- CB —- 200 -—- D2 -—- 210 
m —-- C9 -- 201 -—- D4 -—- 212 


7110.6011—01 36—0 (87.06) 


DODATEK C: KODY STERUJĄCE DRUKARKI 


KOD NAZWA DZIAŁANIE 
*OE SO druk znaków o podwójnej szerokości 
+14 DC4 kasowanie druku znaków o podwójnej 
szerokości 
*1B *SB ESC [ druk znaków o podwójnej wysokości 


*1B *OC ESC N druk znaków o podwójnej szerokości 
i wysokości 

*1B *37 ESC 7 druk jednokierunkowy 

*1B *33 ESC 3 kasowanie druku jednokierunkowego, druku 
o podwójnej wysokości 1 o podwójnej 
szerokości 1 wysokości 


*1B 445 ESC E druk o podwójnej intensywności 

*1B *46 ESC F kasowanie druku o podwójnej intensywności 

*1B 447 ESC G druk podwójny z fazowym przesunięciem 

*1B 448 ESC H kasowanie druku podwójnego z fazowym 
przesunięciem 

*%1B *36 ESC 6 druk znaków semigraficznych 

*1B *35 ESC 5 kasowanie druku znaków semigraficznych 


oraz trybu graficznego 
*1B +31 ESC 1 tryb graficzna 7-igłowy 
*OF SI druk zagęszczony ( 16,5 zn/cal) 
*12 DCZ kasowanie druku zagęszczonego 
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"DODATEK D: KODY STERUJĄCE EKRANU 


z Z Z R R W A A A. 


*14 
*1B W48 


*1B 445 
41B 44B 


*1B *4C 
*1B *4D 


*1B 459 rc 


41B 470 


*1B 471 


NAZWA DZIAŁANIE 
BELL sygnał dźwiękowy 
BS przesunięcie kursara o jedną pozycję 
w lewo 
LF przesunięcie kursora do następnej linii 
CR przesunięcie kursora do początku linii 


MODE 0 organizacja ekranu 24 linie po 32 znaki 
MODE 1 organizacja ekranu 24 linie po 64 znaki 


ESC H przesunięcie kursora w lewy górny róg 
ekranu 

ESC E zerowanie ekranu poniżej kursora 

ESC K zerowanie ekranu od kursora do końca 
linii 

ESC L wstawienie nowej linii w pozycji kursora 

ESC M usuwanie linii w której znajduje się 
kursor 


ESC Y rc przeniesienie kursora do pozycji (r-+420, 
c-420) 

ESC p włączenie trybu negowania znaków 
na ekranie 

ESC q wyłączenie trybu negowania znaków 


na ekranie 
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DODATEK E: Reguły korzystania z podprogramów (procedur) 
w języku wewnętrznym (asemblerze> pisanych w języku 
BASIC. 


Interpreter języka programowania BASIC umożliwia korzystanie z 
podprogramów pisanych w języku wewnętrznym mikroprocesora 
(asemblerze). 

Wywołanie podprogrmu dokonuje się w programie dwoma 
instrukcjami USR : CALL. 

Instrukcje te zostały opisane w niniejszym podręczniku. 

Poniżej omówione zostały reguły, których należy przestrzegać w 
przypadku korzystania z procedur pisanych w języku wewnętrznym 
(«asemblerze). 


1. Rezerwacja pamięci operacyjnej na podprogramy w asemblerze. 


Rezerwacji pamięci na umieszczenie procedur w asemblerze 
dokonuje się instrukcjami CLEAR i VARPTR opisanymi w 
podręczniku, lub podczas inicjacji interpretera języka BASIC. 
Do tego celu wykorzystuje się parametr /M:8H adres. 
Interpreter BASIC zajmuje pamięc operacyjną od adresu 100H do 
adresu SFFF. 

Obszar pamięci od adresu 6000 do początku systemu operacyjnego 
CP/J (tj. początku programu CCP)» przeznaczony jest na programy 
użytkowe, obszary robocze dla interpretera i obszary robocze 
programu użytkowego (tablice znakowe). 

Interpreter BASIC podczas inicjacji dokonuje zagospodarowania 
tej pamięci w zależności od parametrów podawanych podczas 
inicjacji (/F:,/M:,/S5:> tj. ilości plików dyskowych, 
maksymalnej długości rekordu i górnej granicy pamięci 
operacyjnej określającej dostępną dla interpretera pamięć. 
Program użytkowy umieszczony jest w pamięci operacyjnej 
powyżej zarezerwowanych przez interpreter języka BASIC 
obszarów pamięci. 
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Jeżeli nie podaje się żadnych parametrów, wówczas interpreter 
rezerwuje obszar pamięci na trzy bufory dyskowe i przyjmuje 
standardową długość rekordu równą 128 bajtów. Podczas 
inicjacji interpreter podaje wolny obszar pamięci w bajtach. 
Najwyższe dostępne obszary pamięci może użytkownik przeznaczyć 
na umieszczenie podprogramów asemblera. 

W zależności od wielkości podprogramów rezerwuje się 


odpowiedni obszar pamięci. 


Przykład: 


BASIC /M: SHA5S00 


e. Wpisywanie programu do pamięci operacyjnej. 


Podprogramy w asemblerze mogą być wprowadzone do pamięci 
operacyjnej podczas uruchomienia programu użytkowego za pomocą 
instrukcji POKE. 

Podprogram, umieszczony w programie użytkowym w postaci danych 
(opisanych instrukcją DATA) może być czytany i przesyłany pod 
odpowiednie adresy wyspecyfikowane w instrukcji POKE. 
Instrukcje w języku wewnętrznym mogą być podane jako stale. 
heksadecymalne w postaci $Hkod (np. $HB8 — porównanie 
zawartości rejestru B, które realizuje funkcja CNP B o kodzie 
B8> lub w postaci liczby dziesiętnej (184). 

Program w asemblerze musi być zakończony instrukcją RET (kod 
c9). 
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3. Instrukcja USR. 


3.1. Definiowanie adresu początkowego podprogramu. 


Początkowe adresy podprogramów podane są w instrukcji DEF USR. 


DEF USR<cyfra>=ćwyrażenie całkowite) 


Parametr <cyfra> jest parametrem opcjonalnym. Może przyj mować 
wartości od 0 do 9. Można więc definiować od 1 do 10 
podprogramów w asemblerze. 

Parametr ćwyrażenie całkowite> określa adres startowy 


podprogramu. 


3.2. Przekazywanie argumentu do podprogramu w asemblerze. 


Argumenty do podprogramu w asemblerze mogą być przekazywane 


jawnie instrukcją POKE pod określony adres. 


Przykład: 


INPUT D% 
K%=8HA400 
POKE K%,D% 


Funkcja USR posiada jeden argument, który może być przekazany 
do podprogramu w asemblerze. Przekazanie argumentu do 
podprogramu dokonuje się poprzez wywołanie procedury 
umieszczonej w interpreterze BASIC o adresie początkowym 
zawartym w komórkach 103H i 104H. 

Procedura ta zaokrągla argument do części całkowitej i 


umieszcza go w HL. 
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LXI H, ADR/ adres kontynuacji podprogramu do 


rejestrów HL 


PUSH H - zapamiętanie adresu na stosie 

LHLD 103H -  pcbranie adresu procedury z komórki 
103H 

PCHL - skok do wykonania procedury 


ADR1: .  ......... 


3.3.Wywoływanie programu w asemblerze. 


Funkcja USR służy do wywołania określonego podprogramu. W 
przypadku niezdefiniowania powoduje wystąpienie błędu. Można 
definiować do 10 podprogramów w asemblerze (od 0 do 9) i z 
takimi numerami podprogramy wywoływać. W momencie wywołania 
procedury stos jest ustawiony na 8 poziomów (16 komórek). 
Jeżeli jest to ilość niewystarczająca dla realizacji 
podprogramu, należy stos interpretera BASIC przechować w 
pamięci operacyjnej, ustawić nowy stos, a przy powrocie z 
podprogramu w asemblerze zrekonstruować stos interpretera 
BASIC (pierwszy stos>. Podprogramy w asemblerze mogą zmieniać 
wszystkie rejestry i wszystkie komórki pamięci w dostępnym 
obszarze za wyjątkiem obszaru zajmowanego przez interpreter 
BASIC. 

W momencie wejścia do podprogramu w asemblerze w rejestrze A 
zawarte są informacje dotyczące typu argumentu oraz długości 
deskryptora typu przekazywanego do podprogramu. 

Rejestr A przyjmuje wartości: 


2 - tzn że argument jest dwubajtową liczbą całkowitą ze 
znakiem w zapisie uzupełnieniowym do dwóch 

3 - argumentem jest wartość znakowa (tekst) 

4 - argumentem jest czterobajtowa liczba 


zmiennoprzecinkowa pojedyńczej precyzji 
8 - argumentem jest ośmiobajtowa liczba zmiennoprzecinkowa 
podwójnej precyzji 
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Para rejestrów HL zawiera punkt wejścia (adres) do akumulatora 
zmiennoprzecinkowego (FAC>, a konkretnie FAC-3. 
Jeżeli w akumulatorze /FAC)> jest wartość zmiennoprzecinkowa 


pojedyńczej precyzji jest ona przechowywana wg struktury: 


FAC-3 — młodsze 8 bajtów mantysy 

FAC-2 — środkowe 8 bajtów mantysy 

FAC-1 -— najstarsze 7 bajtów mantysy (z zakładaną, ukrytą 
początkową jedynką)» Bit 7 jest znakiem liczby 
(O -— dodatnia, 1 - ujemna) 

FAC-O0 — eksponent w kodzie +200 ósemkowo 
Jeżeli zawartość FAC jest równa +200 ósemkowo tzn, że 
eksponent jest równy 0. 
Jeżeli zawartość FAC jest równa O to liczba = 0 


Jeżeli argument jest podwójnej precyzji ze zmiennym 
przecinkiem, to FAC-7 do FAC-4 zawierają cztery dodatkowe 
bajty nantysy, najmłodszy umieszczony jest w FAC—7,.... 

Jeżeli argument jest liczbą całkowitą to FAC-3 zawiera młodszą 
jej część, a FAC-2 starszą (ćw zapisie uzupełnieniowym do 
dwóch). 

Jeżeli argument jest typu tekstowego, rejestry DE zawierają 
punkt wejscia do deskryptora argumentu. 


Deskryptor zawiera następujące informacje: 


bajt 0 - długość tekatu (0-255 dziesiętnie) 
bajt 1,2 - szesnastobitowy adres pierwszego bajtu tekstu 
w pamięci (uwaga! może wskazywać na tekst w 
w programie, jeśli argunent jest stałą tekstową) 


Tekst zwrócony po wywołaniu funkcji USR z argumentem tekstowym 
ma taką samą strukturę, jaka była sprecyzowana w deskryptorze. 
Modyfikacja rejestrów D,E niczego w tym przypadku nie zmieni. 
Dlatego zapis 

C$=USR (A8) 
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powoduje przyporządkowanie tekstu wynikowego zarówno zmiennej 
C$ jak A$. 
Chcąc uniknąć modyfikacji A$ należy wywołać podprogram 


następująco: 
C$=USR(A$+*") 


W tym przypadku podprogram użytkownika zmienia deskryptor 
zmiennej przejściowej, a nie zmiennej A. 

Tekst wynikowy podprogramu użytkownika powinien mieścić się w 
obrębie pamięci zajmowanej przez tekst oryginalny. 


3.4. Przekazywanie argumentu z podprogramu asemblera do 
interpretera BASIC. 


Argument umieszczony przez podprogramem asemblera pod 
określonym adresem może być pobrany instrukcją PEEK spod tego 
adresu. Musi to być wartość całkowita z zakresu 0-255. 

W celu przekazania argumentu wynikowego z podprogramu 
asemblera do interpretera BASIC należy umieścić go w parze 
rejestrów HL (lO-bitowa wartość całkowita ze znakiem) i 
wywołać podprogram umieszczony w interpreterze BASIC, którego 
adres zawarty jest pod adresem 105H 1 106H interpretera. 
Jeżeli nie wykonuje się tego podprogramu funkcja USR(x> daje w 
wyniku wartość x, tj. wartość argumentu wyjściowego jest tego 
samego typu co argumentu wejściowego (całkowita, tekstowa, 
pojedyńczej lub podwójnej precyzji). 

Jednakże wywołanie podprogramu o adresie w komórkach 105H i 
106H powoduje zwrócenie wyniku działania funkcji USR w postaci 
liczby całkowitej w rejestrach HL. 


Wywołanie tego programu najprościej realizować w sekwencji: 


PUSH H — umieszczenie zawartości rejestrów HL na stosie 
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LHLD 105H - pobranie adresu podprogramu spod adresu 


XTHL - schowanie adresu na stosie i odzyskanie wartości 
HL 
RET — Wejście do podprogramu interpretera BASIC 


Po takiej sekwencji w liczniku rozkazów zostanie umieszczony 
adres, który znajduje się w 10OSH i 106H. 


Przykład: ' 


W programie pisanym w języku programowania BASIC wprowadzana 
jest mała litera z klawiatury. Podprogram w asemblerze 

zamienia małą literę na dużą. Duża litera wyświetlona jest na 
monitorze. Podprogram realizujący zmianę małych liter na duże 


będzie umieszczony w pamięci od adresu AŚOO. 


3A - przesłanie do A zawartości pamięci 
00 LDA A400 spod adresu A400 

A4 (adres komórki zawierającej znak) 
DO 

61 SUI 61 — "a" 

OF SBB A 

2F CMA 

FS PUSH PSW 

3B 

7A MVI A,7A — "z" 

21 

00 LXI H,A400 

A4 
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96 
9F 
2F 
ci 
48 
A1 
1F 


D2 
1F 
A5 


3A 
00 
A4 


EG 
5F 


32 
00 
A4 
C3 


SBB A 
CMA 

POP B 
MOV C,B 
ANA C 
RAR 

JNC A51F 
LDA A400 
ANI S5F 
STA A400 
RET 


Instrukcje asemblera w postaci kodów heksadecymalnych należy 
umieścić (jako stałe> w instrukcji DATA. 


Poniżej zamieszczono przykład sekwencji programu pisanego w 


języku programowania BASIC z wywołaniem podprogramu w 


asemblerze zamieniającym małe litery na duże. 
10 DATA 8H3A,8HO00,$Ha4, SHD6,8<H61, SH9F, SH2F, 


SHR5S, SHSE, SH7A,SH21, SHOO0, SHa4, SH96, Podprogram 
SHOF, SH2F, 8HC1,%*H48,8HA1,8H1F, SHD2, w asenblerze 
8H1F, s$Ha5, 4H3A, 8HO0, śHa4, HE6, $HSF, 8H32, 

8SHO0O, £Ha4, £$HCO 
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20 I%=8HAS00 
30 DEF USRO=I% 


40 READ A% 

50 POKE I%, AŻ: I4=I%+1 
60 IF A%<>8HC9 THEN 40 
70 PRINT CHR$ (12) 

80 INPUT "Litera=";D% 


90 D1%=>ASC (D$) 


100 KZŻ=SHA400 
110 POKE K%,D1% 


120 C%=USRO (I%) 
130 S%=PEEK (K%) 


140 PRINT "LITERA=" ; CHR$ (S%) 


- definowanie adresu początkowego 


podprogramu o numerze O 


—1 wpisanie programu do 
pamięci począwszy od 


__f adresu A500 


nowa strona na monitorze 
wprowadzenie litery 

z klawiatury 

zmiana znaku (litery)> na 
liczbę całkowitą 


przesłanie pod adres A400 
liczby całkowitej 

wywołanie programu w asemblerze 
pobranie spod adresu A400 

znaku w postaci liczby 
całkowitej 

wyświetlenie litery na 
monitorze 


Uruchomienie programu użytkowego odbywa się następująco: 


- wprowadzenie do pamięci operacyjnej interpretera języka 


BASIC: 


BASIC /M: SHA400 - parametr /M: ogranicza pamięć do 
adresu A400 
- wprowadzenie programu z dysku do pamięci operacyjnej 


LOAD "”PRZYKŁAD* 


lub wpisanie programu z klawiatury 


- uruchomienie instrukcją 
RUN 
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4. Instrukcja CALL. 
Instrukcja CALL służy do wywoływania podprogramów w asemblerze 
CALL śnazwa zmiennej> <ćlista argumentów> 


Parametr ćnazwa zmiennej> zawiera adres początku podprogramu w 
asemblerze wprowadzonego do pamięci operacyjnej. 

Parametr ćlista argumentów> jest parametrem opcjonalnym. 
Użycie instrukcji CALL z listą argumentów powoduje przekazanie 
parametrów (argumentów> do podprogramu. 

Każdy argument z listy argumentów przekazuje parametr do 
podprogramu. Parametrem jest adres młodszego bajtu argumentu. 
Dlatego każdy parametr zajmuje zawsze dwa bajty pamięci 
niezależnie od typu argumentu. (patrz przykład opisany 
poniżej>. Metoda przekazywania parametrów z listy argumentów 


zależy od liczby parametrów wykorzystywanych przez podprogram: 


Jeżeli liczba parametrów jest mniejsza lub równa 3, wówczas: 

- parametr 1 umieszczony jest w parze rejestrów HL 

— parametr 2 umieszczony jest w parze rejestrów DE 

- parametr 3 umieszczony jest w parze rejestrów BC 

Jeżeli lista argumentów jest mniejsza od 3 nie wszystkie 
rejestry są wykorzystywane. 

Jeżeli podprogram wykorzystuje większą ilość argumentów, 
wówczas: 

parametr 1 umieszczony jest w rejestrze HL 

parametr 2 umieszczony jest w rejestrze DE 

parametry od 3 do n-tego umieszczone są w rejestrze BC 

i wskazują początek ciągłego bloku danych (punkt 
wejścia do bloku danych) 

BC zawiera adres młodszego bajtu tego bloku 

, danych tj. młodszego bajtu parametru 3. 

Zgodnie z powyższą regułą należy podprogramowi w asemblerze 
dostarczyć informacji ile parametrów zostanie mu przekazanych 


tj. ilu parametrów może spodziewać się, aby je odnaleźć. 
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Program wywołujący jest odpowiedzialny za przekazanie 
właściwej liczby parametrów. Nie ma możliwości sprawdzenia 
ilości 1 typu parametrów. 

Jeżeli podprogram w asemblerze oczekuje większej ilości 
parametrów niż 3 należy wywołać podprogram w asemblerze 
realizujący przesłanie parametrów do roboczego obszaru danych. 
Poniżej opisano podprogram realizujący umieszczenie 5 


parametrów w pamięci operacyjnej: 


PODP: SHLD P1 ; składowanie parametru Pl 
XCHG 
SHLD P2 ,;, składowanie parametru P2 
NVI A,Ż3 ; ilość pozostałych parametrów 


LXI H,P3 ; punkt wejścia do bloku danych 
(adres początku) 


CALL 8AT 

RET ;: wyjście z podprogramu 
Pl: DS 2 ; obszar dla parametru 1 
P2: DS 2 ; obszar dla parametru 2 
PB: DS Ó ; obszar dla parametru 3-5 


Podprogram $8AT realizuje przesłanie do pamięci pozostałych 3 
parametrów (5-2). Rejestr BC zawiera adres młodszego bajtu 3 
parametru, rejestr HL punkt wejścia do pamięci lokalnej dla 


parametru 3. 
Rejestr A zawiera ilość parametrów (5-2)2=3. 
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SAT:  XCHG 


MOV  H,B 
MOV L;C 

AT1: MOV  C,M 
INX H 
MOV  B,M 
INX AH 
XCHG 
MOV  M,C 
INX H 
MOV  M,B 
INX H 
XCHG 
DCR A 
JNZ ATI 
RET 


1. Podprogramy w asemblerze wpisuje się pod określony adres 


«e. 


przechowanie zawartości HL w rejestrach DE 


zawartość BC do HL 


B,C — adres parametrów 
H,L - punkt wejścia do pamięci lokalnej 
(bloku danych) 


umieszczenie parametru w bloku danych 


czy koniec przesyłania parametrów (czy 


skok do umieszczenia kolejnego parametru 


w bloku danych) 


wszystkie parametry zostały umieszczone 


w bloku danych 


pamięci informacją POKE podobnie jak opisano w instrukcji USR. 


2. Przekazywanie parametrów do programu w asemblerze może 


odbywać się także przy pomocy instrukcji POKE, pobieranie 


parametrów instrukcją PEEK. Wówczas w instrukcji CALL nie 


specyfikuje się listy argumentów. 


podprogram w asemblerze (zmiana małych liter na duże) 


instrukcją USR można ten sam podprogram wywołać instrukcją 


CALL I%, gdzie I% jest adresem początkowym podprogram. 


7110.5011—01 35—0 (87.05) 


W przykładzie wywołującym 


180 


3. Instrukcja CALL może być stosowana w podprogramach 
skompilowanych kompilatorem (translatorem) BASCOM. 

Wówczas podprogramy w asemblerze można dołączyć do programu 
programem L80. Podprogram $AT można dołączyć do program z 
biblioteki FORLIB. REL (biblioteka FORTRAN-80). 

śnazwa zmiennej> oznacza symbol zewnętrzny, rozpoznany przez 
LGO0 jako symbol globalny. W programach użytkowych zaleca się 
zastąpienie instrukcji USR instrukcją CALL. Działanie 
instrukcji USR po kompilowaniu różni się bowiem od działania 
pod interpreterem. Argument funkcji USR jest ignorowany, a 


wynik całkowity (integer»> zwracany jest do pary rejestrów HL. 
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